|
1500
|
How can I add a Zero-Lenght bar
with AxG2antt1 do
begin
BeginUpdate();
MarkSearchColumn := False;
with Columns do
begin
Add('Tasks');
(Add('Start') as EXG2ANTTLib.Column).Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(1);
(Add('End') as EXG2ANTTLib.Column).Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(2);
(Add('Duration') as EXG2ANTTLib.Column).Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(258);
end;
with Chart do
begin
FirstVisibleDate := '9/20/2010';
LevelCount := 2;
PaneWidth[False] := 256;
AllowLinkBars := False;
end;
with Items do
begin
AllowCellValueToItemBar := True;
h1 := AddItem('M1');
AddBar(h1,'Milestone','9/29/2010','9/29/2010',Nil,Nil);
ItemBar[h1,'',EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount] := TObject(True);
end;
EndUpdate();
end
|
|
1499
|
Can I use bars like Milestone (Zero-Length bar) in SchedulePDM
// BarResizing event - Occurs when a bar is moving or resizing.
procedure TWinForm1.AxG2antt1_BarResizing(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_BarResizingEvent);
begin
with AxG2antt1 do
begin
OutputDebugString( Items.SchedulePDM(e.item,TObject(e.key)) );
end
end;
with AxG2antt1 do
begin
BeginUpdate();
MarkSearchColumn := False;
with Columns do
begin
Add('Tasks');
(Add('Start') as EXG2ANTTLib.Column).Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(1);
(Add('End') as EXG2ANTTLib.Column).Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(543);
(Add('Duration') as EXG2ANTTLib.Column).Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(258);
end;
with ConditionalFormats.Add('%3',Nil) do
begin
Bold := True;
ApplyTo := EXG2ANTTLib.FormatApplyToEnum.exFormatToItems;
end;
with ConditionalFormats.Add('%3 = 0',Nil) do
begin
ForeColor := $c4c4c4;
ApplyTo := EXG2ANTTLib.FormatApplyToEnum($3);
end;
with Chart do
begin
FirstVisibleDate := '9/20/2010';
LevelCount := 2;
PaneWidth[False] := 256;
Bars.Add('Task:Split').Shortcut := 'Task';
end;
with Items do
begin
AllowCellValueToItemBar := True;
h1 := AddItem('M1');
AddBar(h1,'Milestone','9/27/2010','9/27/2010',Nil,Nil);
ItemBar[h1,'',EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount] := TObject(True);
h2 := AddItem('T1');
AddBar(h2,'Task','9/27/2010','9/27/2010',Nil,Nil);
ItemBar[h2,'',EXG2ANTTLib.ItemBarPropertyEnum.exBarEndInclusive] := '9/27/2010';
ItemBar[h2,'',EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount] := TObject(True);
AddLink('L1',h1,'',h2,'');
h3 := AddItem('T2');
AddBar(h3,'Task','9/27/2010','9/27/2010',Nil,Nil);
ItemBar[h3,'',EXG2ANTTLib.ItemBarPropertyEnum.exBarEndInclusive] := '9/27/2010';
ItemBar[h3,'',EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount] := TObject(True);
AddLink('L2',h1,'',h3,'');
Link['L2',EXG2ANTTLib.LinkPropertyEnum.exLinkPDMWorkingDelay] := TObject(5);
h4 := AddItem('M3');
AddBar(h4,'Milestone','9/27/2010','9/27/2010',Nil,Nil);
ItemBar[h4,'',EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount] := TObject(False);
AddLink('L3',h1,'',h4,'');
Link['L3',EXG2ANTTLib.LinkPropertyEnum.exLinkPDMWorkingDelay] := TObject(5);
SchedulePDM(0,'');
end;
EndUpdate();
end
|
|
1498
|
How can I prevent vertical scrolling when user clicks the overview part of the control
// AddItem event - Occurs after a new Item has been inserted to Items collection.
procedure TWinForm1.AxG2antt1_AddItem(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_AddItemEvent);
begin
with AxG2antt1 do
begin
with Items do
begin
AddBar(e.item,'Task',CellValue[TObject(e.item),TObject(2)],CellValue[TObject(e.item),TObject(4)],Nil,Nil);
end;
end
end;
with AxG2antt1 do
begin
BeginUpdate();
with Chart do
begin
FirstVisibleDate := '8/3/1994';
PaneWidth[False] := 256;
LevelCount := 2;
UnitScale := EXG2ANTTLib.UnitEnum.exDay;
FirstWeekDay := EXG2ANTTLib.WeekDayEnum.exMonday;
OverviewVisible := EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible;
end;
ColumnAutoResize := False;
ContinueColumnScroll := False;
rs := (ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset')) as ADODB.Recordset);
with rs do
begin
Open('Orders','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb',3,3,Nil);
end;
DataSource := (rs as ADODB.Recordset);
Items.AllowCellValueToItemBar := True;
Columns.Item[TObject(2)].Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(1);
Columns.Item[TObject(4)].Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(2);
EndUpdate();
end
|
|
1497
|
I need to specify the start and end dates of the bar to be the same, but no bars are shown. (recommended for bars with exBarKeepWorkingCount ) What I can do
with AxG2antt1 do
begin
BeginUpdate();
MarkSearchColumn := False;
with Columns do
begin
Add('Tasks');
(Add('Start') as EXG2ANTTLib.Column).Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(1);
(Add('End') as EXG2ANTTLib.Column).Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(543);
end;
with Chart do
begin
FirstVisibleDate := '9/20/2006';
LevelCount := 2;
PaneWidth[False] := 256;
ShowEmptyBars := 0;
end;
with Items do
begin
AllowCellValueToItemBar := True;
h := AddItem('Task 1');
AddBar(h,'Task','9/21/2006','9/21/2006',Nil,Nil);
ItemBar[h,'',EXG2ANTTLib.ItemBarPropertyEnum.exBarEndInclusive] := ItemBar[h,'',EXG2ANTTLib.ItemBarPropertyEnum.exBarStart];
ItemBar[h,'',EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount] := TObject(True);
h := AddItem('Task 2');
AddBar(h,'Task','9/21/2006','9/21/2006',Nil,Nil);
ItemBar[h,'',EXG2ANTTLib.ItemBarPropertyEnum.exBarEndInclusive] := '9/25/2006';
ItemBar[h,'',EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount] := TObject(True);
end;
EndUpdate();
end
|
|
1496
|
How can I display the end date to be the last visible date of task, instead the next day
// BarResize event - Occurs when a bar is moved or resized.
procedure TWinForm1.AxG2antt1_BarResize(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_BarResizeEvent);
begin
with AxG2antt1 do
begin
Items.SchedulePDM(e.item,TObject(e.key));
end
end;
// BarResizing event - Occurs when a bar is moving or resizing.
procedure TWinForm1.AxG2antt1_BarResizing(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_BarResizingEvent);
begin
with AxG2antt1 do
begin
Items.SchedulePDM(e.item,TObject(e.key));
end
end;
with AxG2antt1 do
begin
BeginUpdate();
MarkSearchColumn := False;
HeaderHeight := 36;
with Columns do
begin
Add('Tasks');
(Add('Start') as EXG2ANTTLib.Column).Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(1);
with (Add('End') as EXG2ANTTLib.Column) do
begin
HTMLCaption := '<b>End</b><br>Inclusive';
Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(543);
Editor.EditType := EXG2ANTTLib.EditTypeEnum.DateType;
end;
(Add('End') as EXG2ANTTLib.Column).Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(2);
end;
with ConditionalFormats.Add(1,Nil) do
begin
Bold := True;
ApplyTo := EXG2ANTTLib.FormatApplyToEnum($2);
end;
with Chart do
begin
FirstVisibleDate := '9/20/2006';
LevelCount := 2;
PaneWidth[False] := 256;
Bars.Add('Task:Split').Shortcut := 'Task';
end;
with Items do
begin
AllowCellValueToItemBar := True;
h1 := AddItem('Task 1');
AddBar(h1,'Task','9/21/2006','9/23/2006',Nil,Nil);
h2 := AddItem('Task 2');
AddBar(h2,'Task','9/21/2006','9/26/2006',Nil,Nil);
AddLink('link',h1,'',h2,'');
ItemBar[0,'<*>',EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount] := TObject(True);
SchedulePDM(0,'');
end;
EndUpdate();
end
|
|
1495
|
How do I hide the selection
with AxG2antt1 do
begin
BeginUpdate();
MarkSearchColumn := False;
SelForeColor := ForeColor;
SelBackColor := BackColor;
ShowFocusRect := False;
with Columns do
begin
with (Add('Format') as EXG2ANTTLib.Column) do
begin
FormatColumn := 'type(value) in (0,1) ? ''null'' : ( dbl(value)<0 ? ''<fgcolor=FF0000>''+ (value format ''2|.|3|,|1'' ) : (dbl(value)>0 ? ''<fgcolor=000' +
'0FF>+''+(value format ''2|.|3|,'' ): ''0.00'') )';
Def[EXG2ANTTLib.DefColumnEnum.exCellValueFormat] := TObject(1);
end;
end;
with Items do
begin
AddItem(TObject(10));
AddItem(TObject(-8));
end;
EndUpdate();
end
|
|
1494
|
How do I access the cells, or how do I get the values in the columns
with AxG2antt1 do
begin
with Columns do
begin
Add('C1');
Add('C2');
Add('C3');
end;
with Items do
begin
h := AddItem('Item 1');
CellValue[TObject(h),TObject(1)] := 'SubItem 1.1';
CellValue[TObject(h),TObject(2)] := 'SubItem 1.2';
OutputDebugString( CellValue[TObject(h),TObject(1)] );
end;
end
|
|
1493
|
Is there any function I can use to indicate the Now() when using the ComputedFields, CondtionalFormats, ...
with AxG2antt1 do
begin
(Columns.Add('Now') as EXG2ANTTLib.Column).ComputedField := 'date(``)';
Items.AddItem('');
end
|
|
1492
|
How can I get the start and end points of the bar once the BarResize event occurs
// BarResize event - Occurs when a bar is moved or resized.
procedure TWinForm1.AxG2antt1_BarResize(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_BarResizeEvent);
begin
with AxG2antt1 do
begin
OutputDebugString( 'Start: ' );
OutputDebugString( Items.ItemBar[e.item,TObject(e.key),EXG2ANTTLib.ItemBarPropertyEnum.exBarStart] );
OutputDebugString( 'End: ' );
OutputDebugString( Items.ItemBar[e.item,TObject(e.key),EXG2ANTTLib.ItemBarPropertyEnum.exBarEnd] );
end
end;
with AxG2antt1 do
begin
BeginUpdate();
with Chart do
begin
FirstVisibleDate := '12/31/2009';
LevelCount := 2;
PaneWidth[False] := 96;
var_Bar := Bars.Item['Task'];
end;
Columns.Add('Types');
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/4/2010','1/9/2010','',Nil);
AddBar(AddItem('Task 2'),'Task','1/4/2010','1/9/2010','',Nil);
end;
EndUpdate();
end
|
|
1491
|
My chart displays hours, the question would be if possible to let user resizes the bars up to 1/2 hour, or a half an hour
with AxG2antt1 do
begin
BeginUpdate();
DefaultItemHeight := 22;
Columns.Add('Task');
with Chart do
begin
AllowCreateBar := EXG2ANTTLib.CreateBarEnum.exCreateBarAuto;
LevelCount := 2;
UnitScale := EXG2ANTTLib.UnitEnum.exHour;
ResizeUnitScale := EXG2ANTTLib.UnitEnum.exMinute;
ResizeUnitCount := 30;
PaneWidth[False] := 48;
FirstVisibleDate := '1/1/2001';
DrawGridLines := EXG2ANTTLib.GridLinesEnum.exAllLines;
Level[1].DrawGridLines := True;
end;
with Items do
begin
AddItem('Task');
AddItem('Task');
AddItem('Task');
AddItem('Task');
AddItem('Task');
end;
EndUpdate();
end
|
|
1490
|
How can I show the dates in the title
with AxG2antt1 do
begin
BeginUpdate();
with Chart do
begin
FirstVisibleDate := '12/30/2002';
LevelCount := 2;
PaneWidth[False] := 0;
UnitScale := EXG2ANTTLib.UnitEnum.exHour;
DrawGridLines := EXG2ANTTLib.GridLinesEnum.exAllLines;
Level[0].Alignment := Integer(EXG2ANTTLib.AlignmentEnum.exHOutside) Or Integer(EXG2ANTTLib.AlignmentEnum.CenterAlignment);
end;
EndUpdate();
end
|
|
1489
|
If I vertically scroll the control the image flows fluently. But when I scroll on the horizontal chart's scrollbar the images only shows after I release the click button. Can I make it scroll fluently like the vertical scrollbar
with AxG2antt1 do
begin
Chart.PaneWidth[False] := 0;
Chart.ToolTip := '';
end
|
|
1488
|
How can I programmatically add a bar during the CreateBar event
// CreateBar event - Fired when the user creates a new bar.
procedure TWinForm1.AxG2antt1_CreateBar(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_CreateBarEvent);
begin
with AxG2antt1 do
begin
with Items do
begin
k := ItemBar[e.item,'',EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount];
AddBar(e.item,'Order',TObject(e.dateStart),TObject(e.dateEnd),TObject(k),'your text');
end;
OutputDebugString( Items.ItemBar[e.item,'',EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount] );
end
end;
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Tasks');
with Chart do
begin
AllowCreateBar := EXG2ANTTLib.CreateBarEnum.exCreateBarManual;
PaneWidth[False] := 48;
FirstVisibleDate := '12/28/2000';
LevelCount := 2;
Bars.Copy('Task','Order');
end;
with Items do
begin
AddItem(TObject(1));
AddItem(TObject(2));
AddItem(TObject(3));
end;
EndUpdate();
end
|
|
1487
|
How can I move more bars by code
with AxG2antt1 do
begin
Columns.Add('Tasks');
with Chart do
begin
FirstVisibleDate := '1/1/2001';
LevelCount := 2;
PaneWidth[False] := 48;
end;
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/1/2001','1/6/2001','A',Nil);
AddBar(AddItem('Task 2'),'Task','1/2/2001','1/7/2001','B',Nil);
ItemBar[0,'<*>',EXG2ANTTLib.ItemBarPropertyEnum.exBarMove] := TObject(1);
ItemBar[0,'<A*>',EXG2ANTTLib.ItemBarPropertyEnum.exBarMove] := TObject(1);
ItemBar[0,'<B*>',EXG2ANTTLib.ItemBarPropertyEnum.exBarMove] := TObject(1);
end;
end
|
|
1486
|
How can I move a bar by code
with AxG2antt1 do
begin
Columns.Add('Tasks');
with Chart do
begin
FirstVisibleDate := '1/1/2001';
LevelCount := 2;
PaneWidth[False] := 48;
end;
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/1/2001','1/6/2001','A',Nil);
ItemBar[h,'A',EXG2ANTTLib.ItemBarPropertyEnum.exBarMove] := TObject(1);
end;
end
|
|
1485
|
How can I clip the notes to the items zone only
with AxG2antt1 do
begin
BeginUpdate();
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
AntiAliasing := True;
Columns.Add('Task');
with Chart do
begin
FirstVisibleDate := '1/1/2001';
PaneWidth[False] := 96;
LevelCount := 2;
end;
with Items do
begin
AddItem(Nil);
h := AddItem('Task 1');
AddBar(h,'Task','1/5/2001','1/8/2001','1',Nil);
end;
with Chart.Notes do
begin
with Add('1',TObject(AxG2antt1.Items.ItemByIndex[1]),'1','<img>2</img>') do
begin
PartShadow[EXG2ANTTLib.NotePartEnum.exNoteEnd] := False;
PartBorderSize[EXG2ANTTLib.NotePartEnum.exNoteEnd] := 0;
ClearPartBackColor(EXG2ANTTLib.NotePartEnum.exNoteEnd);
PartCanMove[EXG2ANTTLib.NotePartEnum.exNoteEnd] := True;
RelativePosition := TObject(0.5);
PartVOffset[EXG2ANTTLib.NotePartEnum.exNoteEnd] := -36;
end;
ClipTo := EXG2ANTTLib.NotesClipToEnum.exNotesClipToItems;
end;
EndUpdate();
end
|
|
1484
|
How can I put two bars of various types, in the event of conflict do not coincide
with AxG2antt1 do
begin
BeginUpdate();
DefaultItemHeight := 22;
Columns.Add('Task');
ScrollBySingleLine := True;
BackColorAlternate := Color.FromArgb(240,240,240);
with Chart do
begin
PaneWidth[False] := 48;
FirstVisibleDate := '12/28/2000';
LevelCount := 2;
with Bars.Item['Task'] do
begin
OverlaidType := Integer(EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange) Or Integer(EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack);
OverlaidGroup := 'NewTask';
end;
with Bars.Copy('Task','NewTask') do
begin
OverlaidType := Integer(EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange) Or Integer(EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack);
OverlaidGroup := 'Task';
Color := $ff;
end;
end;
with Items do
begin
h1 := AddItem('Default');
h := AddItem('Overlaid');
AddBar(h,'Task','1/2/2001','1/4/2001','A1','A1');
AddBar(h,'NewTask','1/3/2001','1/5/2001','A2','A2');
AddBar(h,'NewTask','1/4/2001','1/7/2001','A3','A3');
AddBar(h,'Task','1/4/2001','1/7/2001','A4','A4');
h1 := AddItem('Default');
end;
EndUpdate();
end
|
|
1483
|
How can I run trigger an event which, after clicking on the item/bar gives the key/name or item id
// MouseDown event - Occurs when the user presses a mouse button.
procedure TWinForm1.AxG2antt1_MouseDownEvent(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_MouseDownEvent);
begin
with AxG2antt1 do
begin
item := get_ItemFromPoint(-1,-1,column,hit);
key := Chart.BarFromPoint[-1,-1];
OutputDebugString( 'Item:' );
OutputDebugString( item );
OutputDebugString( 'Key:' );
OutputDebugString( key );
OutputDebugString( 'CellValue(i,0):' );
OutputDebugString( Items.CellValue[TObject(item),TObject(0)] );
Items.ItemBar[item,TObject(key),EXG2ANTTLib.ItemBarPropertyEnum.exBarColor] := TObject(255);
end
end;
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Task');
with Chart do
begin
FirstVisibleDate := '12/29/2000';
PaneWidth[False] := 64;
LevelCount := 2;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/4/2001','1/6/2001','K2',Nil);
AddLink('L1',h1,'K1',h2,'K2');
h3 := AddItem('Task 3');
AddBar(h3,'Task','1/8/2001','1/10/2001','K3',Nil);
AddLink('L2',h2,'K2',h3,'K3');
end;
EndUpdate();
end
|
|
1482
|
How can I change the check-boxes appearance
with AxG2antt1 do
begin
LinesAtRoot := EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot;
with (Columns.Add('Default') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
PartialCheck := True;
end;
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
end;
with VisualAppearance do
begin
Add(1,'XP:Button 3 12');
Add(2,'XP:Button 3 11');
Add(3,'XP:Button 3 10');
end;
set_CheckImage(EXG2ANTTLib.CheckStateEnum.Unchecked,16777216);
set_CheckImage(EXG2ANTTLib.CheckStateEnum.Checked,33554432);
set_CheckImage(EXG2ANTTLib.CheckStateEnum.PartialChecked,50331648);
end
|
|
1481
|
How can I change the color for the control's split bar (sample 1)
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Default');
set_Background(EXG2ANTTLib.BackgroundPartEnum.exSplitBar,$10000);
BackColorLevelHeader := BackColor;
with Chart do
begin
LevelCount := 2;
PaneWidth[False] := 64;
HistogramVisible := True;
HistogramHeight := 64;
OverviewHeight := 48;
OverviewVisible := EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAll;
end;
EndUpdate();
end
|
|
1480
|
Is it possible to display ONLY the working hours
with AxG2antt1 do
begin
with Chart do
begin
FirstVisibleDate := '1/1/2001';
LevelCount := 2;
with Level[0] do
begin
Label := TObject(4096);
Alignment := Integer(EXG2ANTTLib.AlignmentEnum.exHOutside) Or Integer(EXG2ANTTLib.AlignmentEnum.CenterAlignment);
end;
with Level[1] do
begin
Label := '<%hh%>';
Count := 6;
end;
UnitWidth := 26;
PaneWidth[False] := 0;
NonworkingHours := 15728895;
ShowNonworkingUnits := False;
ShowNonworkingHours := False;
end;
end
|
|
1479
|
How can I display the end of the day in the chart's header
with AxG2antt1 do
begin
with Chart do
begin
FirstVisibleDate := '1/1/2001';
LevelCount := 2;
with Level[0] do
begin
Label := TObject(4096);
Alignment := Integer(EXG2ANTTLib.AlignmentEnum.exHOutside) Or Integer(EXG2ANTTLib.AlignmentEnum.CenterAlignment);
end;
with Level[1] do
begin
Label := '<%hh%>';
Count := 6;
ReplaceLabel['08'] := '<b>8</b> <font ;6>am';
ReplaceLabel['14'] := '<b>8</b> <font ;6>pm';
end;
UnitWidth := 26;
PaneWidth[False] := 0;
NonworkingHours := 15728895;
ShowNonworkingUnits := False;
ShowNonworkingHours := False;
end;
end
|
|
1478
|
How can I display the +/- expanding buttons in the chart section
with AxG2antt1 do
begin
BeginUpdate();
LinesAtRoot := EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot;
Indent := 13;
HasButtons := EXG2ANTTLib.ExpandButtonEnum.exWPlus;
with Chart do
begin
FirstVisibleDate := '12/25/2010';
LevelCount := 2;
PaneWidth[False] := 0;
ColumnsFormatLevel := '0';
SelBackColor := AxG2antt1.SelBackColor;
SelForeColor := AxG2antt1.SelForeColor;
end;
with (Columns.Add('P1') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
PartialCheck := True;
end;
with Items do
begin
h := AddItem('Root');
AddBar(InsertItem(h,Nil,'Child 1'),'Task','1/2/2011','1/5/2011',Nil,Nil);
AddBar(InsertItem(h,Nil,'Child 2'),'Task','1/4/2011','1/7/2011',Nil,Nil);
AddBar(InsertItem(h,Nil,'Child 3'),'Task','1/7/2011','1/8/2011',Nil,Nil);
ExpandItem[h] := True;
end;
EndUpdate();
end
|
|
1477
|
Is it possible to display the columns in the chart aligned to the right
with AxG2antt1 do
begin
BeginUpdate();
DefaultItemHeight := 24;
Columns.Add('Tasks');
with (Columns.Add('Key') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(0);
Visible := False;
Alignment := EXG2ANTTLib.AlignmentEnum.RightAlignment;
end;
with Chart do
begin
FirstVisibleDate := '12/30/2000';
LevelCount := 2;
PaneWidth[False] := 0;
ColumnsFormatLevel := '|,1:52';
end;
with Items do
begin
AllowCellValueToItemBar := True;
AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Nil,Nil);
AddBar(AddItem('Task 2'),'Split','1/3/2001','1/7/2001',Nil,Nil);
AddBar(AddItem('Task 3'),'Progress','1/3/2001','1/7/2001',Nil,Nil);
end;
EndUpdate();
end
|
|
1476
|
How can I display a border in the chart
with AxG2antt1 do
begin
BeginUpdate();
DefaultItemHeight := 24;
Columns.Add('Tasks');
with (Columns.Add('Key') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(0);
Visible := False;
Alignment := EXG2ANTTLib.AlignmentEnum.CenterAlignment;
Def[EXG2ANTTLib.DefColumnEnum.exCellForeColor] := TObject(255);
end;
with Chart do
begin
FirstVisibleDate := '12/30/2000';
LevelCount := 2;
PaneWidth[False] := 0;
ColumnsFormatLevel := '1:52,\"\"[bg=255]:2';
end;
with Items do
begin
AllowCellValueToItemBar := True;
AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Nil,Nil);
AddBar(AddItem('Task 2'),'Split','1/3/2001','1/7/2001',Nil,Nil);
AddBar(AddItem('Task 3'),'Progress','1/3/2001','1/7/2001',Nil,Nil);
end;
EndUpdate();
end
|
|
1475
|
How can I change the font to display the columns in the chart (Method 2)
with AxG2antt1 do
begin
BeginUpdate();
DefaultItemHeight := 24;
Columns.Add('Tasks');
with (Columns.Add('Key') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(0);
Visible := False;
end;
with ConditionalFormats.Add(1,Nil) do
begin
Bold := True;
ApplyTo := EXG2ANTTLib.FormatApplyToEnum($1);
end;
with Chart do
begin
FirstVisibleDate := '12/30/2000';
LevelCount := 2;
PaneWidth[False] := 48;
ColumnsFormatLevel := '1';
end;
with Items do
begin
AllowCellValueToItemBar := True;
AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Nil,Nil);
AddBar(AddItem('Task 2'),'Split','1/3/2001','1/7/2001',Nil,Nil);
AddBar(AddItem('Task 3'),'Progress','1/3/2001','1/7/2001',Nil,Nil);
end;
EndUpdate();
end
|
|
1474
|
How can I change the font to display the columns in the chart (Method 1)
with AxG2antt1 do
begin
BeginUpdate();
DefaultItemHeight := 24;
Columns.Add('Tasks');
with (Columns.Add('Key') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(0);
Visible := False;
end;
with Chart do
begin
FirstVisibleDate := '12/30/2000';
LevelCount := 2;
PaneWidth[False] := 48;
ColumnsFormatLevel := '1';
ColumnsFont := (AxG2antt1.Font as stdole.StdFont);
with ColumnsFont do
begin
Size := 12;
Name := 'Tahoma';
end;
end;
with Items do
begin
AllowCellValueToItemBar := True;
AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Nil,Nil);
AddBar(AddItem('Task 2'),'Split','1/3/2001','1/7/2001',Nil,Nil);
AddBar(AddItem('Task 3'),'Progress','1/3/2001','1/7/2001',Nil,Nil);
end;
EndUpdate();
end
|
|
1473
|
How can I change the column's background color when it is displayed on the chart (Method 2)
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Tasks');
with (Columns.Add('Key') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(0);
Visible := False;
end;
with Chart do
begin
FirstVisibleDate := '12/30/2000';
LevelCount := 2;
PaneWidth[False] := 48;
ColumnsFormatLevel := '1[bg=255]:52';
end;
with Items do
begin
AllowCellValueToItemBar := True;
AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Nil,Nil);
AddBar(AddItem('Task 2'),'Split','1/3/2001','1/7/2001',Nil,Nil);
AddBar(AddItem('Task 3'),'Progress','1/3/2001','1/7/2001',Nil,Nil);
end;
EndUpdate();
end
|
|
1472
|
How can I change the column's background color when it is displayed on the chart (Method 1)
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Tasks');
with (Columns.Add('Key') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(0);
Visible := False;
Def[EXG2ANTTLib.DefColumnEnum.exCellBackColor] := TObject(15790320);
end;
with Chart do
begin
FirstVisibleDate := '12/30/2000';
LevelCount := 2;
PaneWidth[False] := 48;
ColumnsFormatLevel := '1:52';
end;
with Items do
begin
AllowCellValueToItemBar := True;
AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Nil,Nil);
AddBar(AddItem('Task 2'),'Split','1/3/2001','1/7/2001',Nil,Nil);
AddBar(AddItem('Task 3'),'Progress','1/3/2001','1/7/2001',Nil,Nil);
end;
EndUpdate();
end
|
|
1471
|
Can the chart display any column
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Tasks');
with (Columns.Add('Start') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(1);
Visible := False;
Alignment := EXG2ANTTLib.AlignmentEnum.LeftAlignment;
end;
with (Columns.Add('End') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(2);
Visible := False;
Alignment := EXG2ANTTLib.AlignmentEnum.RightAlignment;
end;
with Chart do
begin
FirstVisibleDate := '1/1/2001';
LevelCount := 2;
PaneWidth[False] := 48;
ColumnsFormatLevel := '1:52,|,2:52';
end;
with Items do
begin
AllowCellValueToItemBar := True;
AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Nil,Nil);
AddBar(AddItem('Task 2'),'Task','1/4/2001','1/8/2001',Nil,Nil);
end;
EndUpdate();
end
|
|
1470
|
Is it possible to display a check-box column on the chart
with AxG2antt1 do
begin
Columns.Add('Tasks');
with (Columns.Add('Check') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
Visible := False;
end;
with Chart do
begin
FirstVisibleDate := '1/1/2001';
LevelCount := 2;
PaneWidth[False] := 48;
ColumnsFormatLevel := '1';
end;
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Nil,Nil);
AddBar(AddItem('Task 2'),'Task','1/4/2001','1/8/2001',Nil,Nil);
end;
end
|
|
1469
|
Is it possible to disable the cell's editor context menu
with AxG2antt1 do
begin
with (Columns.Add('Edit') as EXG2ANTTLib.Column).Editor do
begin
EditType := EXG2ANTTLib.EditTypeEnum.EditType;
Option[EXG2ANTTLib.EditorOptionEnum.exEditAllowContextMenu] := TObject(False);
end;
with Items do
begin
AddItem(TObject(10));
AddItem(TObject(20));
end;
end
|
|
1468
|
How can I find a value in a drop down editor
with AxG2antt1 do
begin
with (Columns.Add('DropDownList') as EXG2ANTTLib.Column).Editor do
begin
EditType := EXG2ANTTLib.EditTypeEnum.DropDownListType;
AddItem(1,'DDList 1',Nil);
AddItem(2,'DDList 2',Nil);
AddItem(3,'DDList 3',Nil);
end;
with (Columns.Add('DropDown') as EXG2ANTTLib.Column).Editor do
begin
EditType := EXG2ANTTLib.EditTypeEnum.DropDownType;
AddItem(1,'DDType 1',Nil);
AddItem(2,'DDType 2',Nil);
AddItem(3,'DDType 3',Nil);
end;
with Items do
begin
CellValue[TObject(.AddItem(TObject(1))),TObject(1)] := AxG2antt1.Columns.Item[TObject(1)].Editor.FindItem[TObject(1)];
CellValue[TObject(.AddItem(TObject(2))),TObject(1)] := AxG2antt1.Columns.Item[TObject(1)].Editor.FindItem[TObject(2)];
end;
end
|
|
1467
|
What is the difference between DropDownType and DropDownListType
with AxG2antt1 do
begin
with (Columns.Add('DropDownList') as EXG2ANTTLib.Column).Editor do
begin
EditType := EXG2ANTTLib.EditTypeEnum.DropDownListType;
AddItem(1,'First item',Nil);
AddItem(2,'Second item',Nil);
AddItem(3,'Third item',Nil);
end;
with (Columns.Add('DropDown') as EXG2ANTTLib.Column).Editor do
begin
EditType := EXG2ANTTLib.EditTypeEnum.DropDownType;
AddItem(1,'First item',Nil);
AddItem(2,'Second item',Nil);
AddItem(3,'Third item',Nil);
end;
with Items do
begin
CellValue[TObject(AddItem(TObject(1))),TObject(1)] := 'Any';
CellValue[TObject(AddItem(TObject(2))),TObject(1)] := 'Any';
end;
end
|
|
1466
|
How can I mark or enlarge the selected bars, so I have a clear frame around (Method 3)
with AxG2antt1 do
begin
BeginUpdate();
DefaultItemHeight := 32;
with VisualAppearance do
begin
Add(1,'c:\exontrol\images\normal.ebn');
Add(2,'CP:1 -2 -2 2 2');
end;
with Chart do
begin
PaneWidth[False] := 48;
FirstVisibleDate := '1/1/2002';
SelBarColor := $2ff0000;
Bars.Item['Task'].Color := $1000000;
end;
Columns.Add('Task');
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/2/2002','1/4/2002','A',Nil);
AddBar(h,'Task','1/6/2002','1/10/2002','B',Nil);
AddBar(h,'Task','1/11/2002','1/14/2002','C',Nil);
ItemBar[h,'A',EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected] := TObject(True);
ItemBar[h,'B',EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected] := TObject(True);
end;
EndUpdate();
end
|
|
1465
|
How can I mark or enlarge the selected bars, so I have a clear frame around (Method 2)
with AxG2antt1 do
begin
BeginUpdate();
DefaultItemHeight := 32;
with VisualAppearance do
begin
Add(1,'c:\exontrol\images\normal.ebn');
Add(2,'CP:1 -2 -2 2 2');
end;
with Chart do
begin
PaneWidth[False] := 48;
FirstVisibleDate := '1/1/2002';
SelBarColor := $2000000;
Bars.Item['Task'].Color := $1000000;
end;
Columns.Add('Task');
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/2/2002','1/4/2002','A',Nil);
AddBar(h,'Task','1/6/2002','1/10/2002','B',Nil);
AddBar(h,'Task','1/11/2002','1/14/2002','C',Nil);
ItemBar[h,'A',EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected] := TObject(True);
ItemBar[h,'B',EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected] := TObject(True);
end;
EndUpdate();
end
|
|
1464
|
How can I mark or enlarge the selected bars, so I have a clear frame around (Method 1)
with AxG2antt1 do
begin
BeginUpdate();
DefaultItemHeight := 32;
with VisualAppearance do
begin
Add(1,'gBFLBCJwBAEHhEJAEGg4BNkMQAAYAQGKIYBkAKBQAGaAoDDYNQwQwAAwjIKEEwsACEIrjKCVIgkHYJRjGEZxMAsEwjAoaQChEZRUhEMgxDDIIxAJIcaw0GSEZwgOQZBi' +
'OEYnDANMgzDLMZR7DajYymSA6LiKNo+QjKFB0NLMVRtEIIIzCSCaNomT4DS4NIi2DYcVhhMqBYbtCZZBo2FpZUxXdL0BJMVxbHKYJikW4pVjoAJ+TxccjVDQNJyLQ6rY' +
'zuAAKNpuO58RbdGDQHA9KyfLCEcTxYAMbp6X5kaBZVp2VCMRzbTLUIDzPNVCTrNIaJioAaMeiCG5NUzieqRNalLABFjZMIHDbtGynDIJZruW52+CLIZpWbEOiRXr2Txx' +
'gGYp5Fie5mAYBgIgSFDrDOIZUmQZYiECXJUjIEQ3lUGgbEIRQcg+Hg8DEFxYFuOR/i+X5znufh/omBgCgCVwjn4BoBmCCAmAqApgkefgMgOYQID4DoELsUgTgUYYIC4F' +
'4GGGSAaBuBxhhgfgggUYgog4EYJGIaBJn6ChiBiLgsgkIpoj4J4BCMSJWDaDZjgiZgCEAQCAgA==');
Add(2,'CP:1 -2 -2 2 2');
end;
with Chart do
begin
FirstVisibleDate := '1/1/2002';
SelBarColor := $2000000;
PaneWidth[False] := 48;
end;
Columns.Add('Task');
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/2/2002','1/4/2002','A',Nil);
AddBar(h,'Task','1/6/2002','1/10/2002','B',Nil);
AddBar(h,'Task','1/11/2002','1/14/2002','C',Nil);
ItemBar[h,'A',EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected] := TObject(True);
ItemBar[h,'B',EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected] := TObject(True);
end;
EndUpdate();
end
|
|
1463
|
How can I load my table from an Access 2007, using ADO
// AddItem event - Occurs after a new Item has been inserted to Items collection.
procedure TWinForm1.AxG2antt1_AddItem(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_AddItemEvent);
begin
with AxG2antt1 do
begin
with Items do
begin
AddBar(e.item,'Task',CellValue[TObject(e.item),TObject(2)],CellValue[TObject(e.item),TObject(4)],Nil,Nil);
end;
end
end;
with AxG2antt1 do
begin
BeginUpdate();
with Chart do
begin
FirstVisibleDate := '8/3/1994';
PaneWidth[False] := 256;
LevelCount := 2;
UnitScale := EXG2ANTTLib.UnitEnum.exDay;
FirstWeekDay := EXG2ANTTLib.WeekDayEnum.exMonday;
OverviewVisible := EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible;
end;
ColumnAutoResize := False;
ContinueColumnScroll := False;
rs := (ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset')) as ADODB.Recordset);
with rs do
begin
Open('Orders','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb',3,3,Nil);
end;
DataSource := (rs as ADODB.Recordset);
Items.AllowCellValueToItemBar := True;
Columns.Item[TObject(2)].Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(1);
Columns.Item[TObject(4)].Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(2);
EndUpdate();
end
|
|
1462
|
Is it possible to enumerate the links without enumerating them
with AxG2antt1 do
begin
AntiAliasing := True;
Columns.Add('Task');
with Chart do
begin
FirstVisibleDate := '1/1/2001';
PaneWidth[False] := 128;
NonworkingDays := 0;
LinksWidth := 2;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/6/2001','1/8/2001','K2',Nil);
AddLink('L1',h1,'K1',h2,'K2');
h3 := AddItem('Task 3');
AddBar(h3,'Task','1/10/2001','1/12/2001','K3',Nil);
AddLink('L2',h2,'K2',h3,'K3');
h4 := AddItem('Task 4');
AddBar(h4,'Task','1/14/2001','1/16/2001','K4',Nil);
AddLink('L3',h3,'K3',h4,'K4');
Link['<L*>',EXG2ANTTLib.LinkPropertyEnum.exLinkShowDir] := TObject(False);
end;
end
|
|
1461
|
How can I display a vertical line in the chart
// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
procedure TWinForm1.AxG2antt1_ClickEvent(sender: System.Object; e: System.EventArgs);
begin
with AxG2antt1 do
begin
with Chart do
begin
MarkNowColor := $ff;
MarkNow := TObject(DateFromPoint[-1,-1]);
end;
end
end;
with AxG2antt1 do
begin
with Chart do
begin
FirstVisibleDate := '3/13/2012';
PaneWidth[False] := 0;
LevelCount := 2;
MarkNowColor := $0;
MarkNowWidth := 3;
UnitWidth := 32;
ResizeUnitScale := EXG2ANTTLib.UnitEnum.exHour;
end;
end
|
|
1460
|
How can I use the MarkNowColor to mark a time line different then the time on the machine
with AxG2antt1 do
begin
with Chart do
begin
FirstVisibleDate := '3/13/2012';
PaneWidth[False] := 0;
LevelCount := 2;
Level[0].Label := TObject(1048576);
with Level[1] do
begin
Label := '<%ss%>';
Count := 15;
end;
MarkNowColor := $ff;
MarkNowWidth := 3;
MarkNow := '3/13/2012 12:03:20 AM';
end;
end
|
|
1459
|
Is it possible to show the current date time using a delay
with AxG2antt1 do
begin
with Chart do
begin
PaneWidth[False] := 0;
LevelCount := 2;
Level[0].Label := TObject(1048576);
with Level[1] do
begin
Label := '<%ss%>';
Count := 15;
end;
MarkNowColor := $ff0000;
MarkNowWidth := 3;
MarkNowDelay := 0.00069444;
end;
Columns.Add('Tasks');
with Items do
begin
AddBar(AddItem('Item 1'),'Task','1/1/2008','1/1/2018',Nil,Nil);
end;
end
|
|
1458
|
What are the options to show the links between bars
with AxG2antt1 do
begin
AntiAliasing := True;
Columns.Add('Task');
with Chart do
begin
FirstVisibleDate := '1/1/2001';
PaneWidth[False] := 128;
NonworkingDays := 0;
LinksWidth := 2;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddItem('');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
h2 := AddItem('Task 2');
AddItem('');
AddBar(h2,'Task','1/6/2001','1/8/2001','K2',Nil);
AddLink('L1',h1,'K1',h2,'K2');
h3 := AddItem('Task 3');
AddItem('');
AddBar(h3,'Task','1/12/2001','1/14/2001','K3',Nil);
AddLink('L2',h2,'K2',h3,'K3');
Link['L2',EXG2ANTTLib.LinkPropertyEnum.exLinkShowRound] := TObject(-1);
h4 := AddItem('Task 4');
AddBar(h4,'Task','1/18/2001','1/20/2001','K4',Nil);
AddLink('L3',h3,'K3',h4,'K4');
Link['L3',EXG2ANTTLib.LinkPropertyEnum.exLinkShowRound] := TObject(1);
AddItem('');
h5 := AddItem('Task 5');
AddBar(h5,'Task','1/22/2001','1/24/2001','K5',Nil);
AddLink('L4',h4,'K4',h5,'K5');
Link['L4',EXG2ANTTLib.LinkPropertyEnum.exLinkShowRound] := TObject(2);
end;
end
|
|
1457
|
Is it possible to specify the link between bars to be a wider line
with AxG2antt1 do
begin
Columns.Add('Task');
with Chart do
begin
FirstVisibleDate := '1/1/2001';
PaneWidth[False] := 128;
NonworkingDays := 0;
LinksStyle := EXG2ANTTLib.LinkStyleEnum.exLinkSolid;
LinksWidth := 2;
LinksColor := $ff;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/6/2001','1/8/2001','K2',Nil);
AddLink('L1',h1,'K1',h2,'K2');
h3 := AddItem('Task 3');
AddBar(h3,'Task','1/10/2001','1/12/2001','K3',Nil);
AddLink('L2',h2,'K2',h3,'K3');
end;
end
|
|
1456
|
Is it possible to create a link between the two specified bars so that the link was a straight line
with AxG2antt1 do
begin
Columns.Add('Task');
AntiAliasing := True;
with Chart do
begin
FirstVisibleDate := '1/1/2001';
PaneWidth[False] := 128;
NonworkingDays := 0;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/6/2001','1/8/2001','K2',Nil);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXG2ANTTLib.LinkPropertyEnum.exLinkStyle] := TObject(0);
Link['L1',EXG2ANTTLib.LinkPropertyEnum.exLinkWidth] := TObject(2);
Link['L1',EXG2ANTTLib.LinkPropertyEnum.exLinkColor] := TObject(255);
Link['L1',EXG2ANTTLib.LinkPropertyEnum.exLinkShowRound] := TObject(2);
h3 := AddItem('Task 3');
AddBar(h3,'Task','1/10/2001','1/12/2001','K3',Nil);
AddLink('L2',h2,'K2',h3,'K3');
end;
end
|
|
1455
|
I associate the bars with my columns, Start and End, but can not get it working for bars with non-empty keys. What am I doing wrong
with AxG2antt1 do
begin
BeginUpdate();
with Columns do
begin
Add('Tasks');
with (Add('Start') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(1);
Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey] := 'A';
end;
with (Add('End') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(2);
Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey] := 'A';
end;
end;
Items.AllowCellValueToItemBar := True;
with Chart do
begin
PaneWidth[False] := 256;
FirstVisibleDate := '1/1/2002';
LevelCount := 2;
Bars.Item['Task'].OverlaidType := EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack;
end;
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/4/2002','1/8/2002','A','A');
h := AddItem('Task 2');
AddBar(h,'Task','1/6/2002','1/10/2002','A','A');
AddBar(h,'Task','1/4/2002','1/8/2002','B','B');
ItemBar[h,'B',EXG2ANTTLib.ItemBarPropertyEnum.exBarColor] := TObject(255);
end;
EndUpdate();
end
|
|
1454
|
The right pane needs to show ONLY the hours 6am to 9pm (every hour) for one day only and the user should not to be able to scroll left or right nor see any other hours. How can I do that
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Tasks');
with Chart do
begin
LevelCount := 2;
ScrollRange[EXG2ANTTLib.ScrollRangeEnum.exStartDate] := '1/1/2001';
ScrollRange[EXG2ANTTLib.ScrollRangeEnum.exEndDate] := '1/1/2001';
UnitScale := EXG2ANTTLib.UnitEnum.exHour;
NonworkingHours := 12582975;
ShowNonworkingUnits := False;
ShowNonworkingHours := False;
Level[0].Alignment := Integer(EXG2ANTTLib.AlignmentEnum.exHOutside) Or Integer(EXG2ANTTLib.AlignmentEnum.CenterAlignment);
UnitWidth := 18;
PaneWidth[True] := 294;
ScrollBar := False;
end;
OnResizeControl := EXG2ANTTLib.OnResizeControlEnum.exDisableSplitter;
EndUpdate();
end
|
|
1453
|
Is it possible to count only a specified type of bars without enumerating them
with AxG2antt1 do
begin
Columns.Add('Tasks');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1','K1');
AddBar(AddItem('Task 2'),'Progress','1/3/2001','1/5/2001',Nil,Nil);
AddBar(AddItem('Task 3'),'Task','1/2/2001','1/4/2001','P3','P3');
OutputDebugString( 'K*' );
OutputDebugString( ItemBar[0,'<K*>',EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount] );
OutputDebugString( 'K* P*' );
OutputDebugString( ItemBar[0,'<K* P*>',EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount] );
end;
end
|
|
1452
|
How can I count or get the numbers of the bars in the chart
with AxG2antt1 do
begin
Columns.Add('Tasks');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1','K1');
AddBar(AddItem('Task 2'),'Task','1/2/2001','1/4/2001','A2','A2');
AddBar(AddItem('Task 3'),'Task','1/2/2001','1/4/2001','K3','K3');
OutputDebugString( 'All' );
OutputDebugString( ItemBar[0,'<*>',EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount] );
OutputDebugString( 'A*' );
OutputDebugString( ItemBar[0,'<A*>',EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount] );
OutputDebugString( 'K*' );
OutputDebugString( ItemBar[0,'<K*>',EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount] );
end;
end
|
|
1451
|
Is it possible to remove only specified bars from ALL items at once
with AxG2antt1 do
begin
Columns.Add('Tasks');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1','K1');
AddBar(AddItem('Task 2'),'Task','1/2/2001','1/4/2001','A2','A2');
AddBar(AddItem('Task 3'),'Task','1/2/2001','1/4/2001','K3','K3');
RemoveBar(0,'<K*>');
end;
end
|
|
1450
|
How can I remove all bars from the chart (method 2)
with AxG2antt1 do
begin
Columns.Add('Tasks');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1','K1');
AddBar(AddItem('Task 2'),'Task','1/2/2001','1/4/2001','A2','A2');
AddBar(AddItem('Task 3'),'Task','1/2/2001','1/4/2001','K3','K3');
ClearBars(0);
end;
end
|
|
1449
|
How can I remove all bars from the chart (method 1)
with AxG2antt1 do
begin
Columns.Add('Tasks');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1','K1');
AddBar(AddItem('Task 2'),'Task','1/2/2001','1/4/2001','A2','A2');
AddBar(AddItem('Task 3'),'Task','1/2/2001','1/4/2001','K3','K3');
RemoveBar(0,'<*>');
end;
end
|
|
1448
|
Is it possible to update at once a property for several bars without enumerating them
with AxG2antt1 do
begin
Columns.Add('Tasks');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1','K1');
AddBar(AddItem('Task 2'),'Task','1/2/2001','1/4/2001','A2','A2');
AddBar(AddItem('Task 3'),'Task','1/2/2001','1/4/2001','K3','K3');
ItemBar[0,'<K*>',EXG2ANTTLib.ItemBarPropertyEnum.exBarColor] := TObject(255);
end;
end
|
|
1447
|
Is it possible to update at once a property of ALL bars without enumerating them
with AxG2antt1 do
begin
Columns.Add('Tasks');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1','K1');
AddBar(AddItem('Task 2'),'Task','1/2/2001','1/4/2001','A2','A2');
AddBar(AddItem('Task 3'),'Task','1/2/2001','1/4/2001','K3','K3');
ItemBar[0,'<*>',EXG2ANTTLib.ItemBarPropertyEnum.exBarColor] := TObject(255);
end;
end
|
|
1446
|
How do I prevent selecting a new item when selecting a bar
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Task');
with Chart do
begin
FirstVisibleDate := '12/29/2000';
PaneWidth[False] := 64;
LevelCount := 2;
SelectOnClick := False;
end;
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1',Nil);
AddBar(AddItem('Task 2'),'Task','1/4/2001','1/6/2001','K2',Nil);
AddBar(AddItem('Task 3'),'Task','1/8/2001','1/10/2001','K3',Nil);
SelectItem[FirstVisibleItem] := True;
end;
EndUpdate();
end
|
|
1445
|
Is it possible to find out all incoming bars ( recursively )
// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxG2antt1_MouseMoveEvent(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent);
begin
with AxG2antt1 do
begin
b := Chart.BarFromPoint[-1,-1];
i := get_ItemFromPoint(-1,-1,c,hit);
OutputDebugString( Items.ItemBar[i,TObject(b),EXG2ANTTLib.ItemBarPropertyEnum.exBarIncomingBarsAllDebug] );
end
end;
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Tasks');
with Chart do
begin
LevelCount := 2;
FirstVisibleDate := '12/28/2000';
PaneWidth[False] := 96;
NonworkingDays := 0;
AllowLinkBars := True;
AllowCreateBar := EXG2ANTTLib.CreateBarEnum.exCreateBarAuto;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','A','A');
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','B','B');
AddLink('L1',h1,'A',h2,'B');
h3 := AddItem('Task 3');
AddBar(h3,'Task','1/8/2001','1/10/2001','C','C');
AddLink('L2',h2,'B',h3,'C');
h4 := AddItem('Task 4');
AddBar(h4,'Task','1/8/2001','1/10/2001','D','D');
AddLink('L3',h1,'A',h4,'D');
end;
EndUpdate();
end
|
|
1444
|
How do I find the incoming bars
// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxG2antt1_MouseMoveEvent(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent);
begin
with AxG2antt1 do
begin
b := Chart.BarFromPoint[-1,-1];
i := get_ItemFromPoint(-1,-1,c,hit);
OutputDebugString( Items.ItemBar[i,TObject(b),EXG2ANTTLib.ItemBarPropertyEnum.exBarIncomingBarsDebug] );
end
end;
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Tasks');
with Chart do
begin
LevelCount := 2;
FirstVisibleDate := '12/28/2000';
PaneWidth[False] := 96;
NonworkingDays := 0;
AllowLinkBars := True;
AllowCreateBar := EXG2ANTTLib.CreateBarEnum.exCreateBarAuto;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','A','A');
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','B','B');
AddLink('L1',h1,'A',h2,'B');
h3 := AddItem('Task 3');
AddBar(h3,'Task','1/8/2001','1/10/2001','C','C');
AddLink('L2',h2,'B',h3,'C');
h4 := AddItem('Task 4');
AddBar(h4,'Task','1/8/2001','1/10/2001','D','D');
AddLink('L3',h1,'A',h4,'D');
end;
EndUpdate();
end
|
|
1443
|
Is it possible to find out all incoming links ( recursively ). Incoming link is a link from another bar to the current bar
// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxG2antt1_MouseMoveEvent(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent);
begin
with AxG2antt1 do
begin
b := Chart.BarFromPoint[-1,-1];
i := get_ItemFromPoint(-1,-1,c,hit);
OutputDebugString( Items.ItemBar[i,TObject(b),EXG2ANTTLib.ItemBarPropertyEnum.exBarIncomingLinksAllAsString] );
end
end;
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Tasks');
with Chart do
begin
LevelCount := 2;
FirstVisibleDate := '12/28/2000';
PaneWidth[False] := 96;
NonworkingDays := 0;
AllowLinkBars := True;
AllowCreateBar := EXG2ANTTLib.CreateBarEnum.exCreateBarAuto;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','A','A');
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','B','B');
AddLink('L1',h1,'A',h2,'B');
h3 := AddItem('Task 3');
AddBar(h3,'Task','1/8/2001','1/10/2001','C','C');
AddLink('L2',h2,'B',h3,'C');
h4 := AddItem('Task 4');
AddBar(h4,'Task','1/8/2001','1/10/2001','D','D');
AddLink('L3',h1,'A',h4,'D');
end;
EndUpdate();
end
|
|
1442
|
How do I find the incoming links. Incoming link is link from another bar to the current bar
// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxG2antt1_MouseMoveEvent(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent);
begin
with AxG2antt1 do
begin
b := Chart.BarFromPoint[-1,-1];
i := get_ItemFromPoint(-1,-1,c,hit);
OutputDebugString( Items.ItemBar[i,TObject(b),EXG2ANTTLib.ItemBarPropertyEnum.exBarIncomingLinksAsString] );
end
end;
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Tasks');
with Chart do
begin
LevelCount := 2;
FirstVisibleDate := '12/28/2000';
PaneWidth[False] := 96;
NonworkingDays := 0;
AllowLinkBars := True;
AllowCreateBar := EXG2ANTTLib.CreateBarEnum.exCreateBarAuto;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','A','A');
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','B','B');
AddLink('L1',h1,'A',h2,'B');
h3 := AddItem('Task 3');
AddBar(h3,'Task','1/8/2001','1/10/2001','C','C');
AddLink('L2',h2,'B',h3,'C');
h4 := AddItem('Task 4');
AddBar(h4,'Task','1/8/2001','1/10/2001','D','D');
AddLink('L3',h1,'A',h4,'D');
end;
EndUpdate();
end
|
|
1441
|
Is it possible to find out all outgoing bars ( recursively )
// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxG2antt1_MouseMoveEvent(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent);
begin
with AxG2antt1 do
begin
b := Chart.BarFromPoint[-1,-1];
i := get_ItemFromPoint(-1,-1,c,hit);
OutputDebugString( Items.ItemBar[i,TObject(b),EXG2ANTTLib.ItemBarPropertyEnum.exBarOutgoingBarsAllDebug] );
end
end;
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Tasks');
with Chart do
begin
LevelCount := 2;
FirstVisibleDate := '12/28/2000';
PaneWidth[False] := 96;
NonworkingDays := 0;
AllowLinkBars := True;
AllowCreateBar := EXG2ANTTLib.CreateBarEnum.exCreateBarAuto;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','A','A');
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','B','B');
AddLink('L1',h1,'A',h2,'B');
h3 := AddItem('Task 3');
AddBar(h3,'Task','1/8/2001','1/10/2001','C','C');
AddLink('L2',h2,'B',h3,'C');
h4 := AddItem('Task 4');
AddBar(h4,'Task','1/8/2001','1/10/2001','D','D');
AddLink('L3',h1,'A',h4,'D');
end;
EndUpdate();
end
|
|
1440
|
How do I find the outgoing bars
// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxG2antt1_MouseMoveEvent(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent);
begin
with AxG2antt1 do
begin
b := Chart.BarFromPoint[-1,-1];
i := get_ItemFromPoint(-1,-1,c,hit);
OutputDebugString( Items.ItemBar[i,TObject(b),EXG2ANTTLib.ItemBarPropertyEnum.exBarOutgoingBarsDebug] );
end
end;
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Tasks');
with Chart do
begin
LevelCount := 2;
FirstVisibleDate := '12/28/2000';
PaneWidth[False] := 96;
NonworkingDays := 0;
AllowLinkBars := True;
AllowCreateBar := EXG2ANTTLib.CreateBarEnum.exCreateBarAuto;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','A','A');
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','B','B');
AddLink('L1',h1,'A',h2,'B');
h3 := AddItem('Task 3');
AddBar(h3,'Task','1/8/2001','1/10/2001','C','C');
AddLink('L2',h2,'B',h3,'C');
h4 := AddItem('Task 4');
AddBar(h4,'Task','1/8/2001','1/10/2001','D','D');
AddLink('L3',h1,'A',h4,'D');
end;
EndUpdate();
end
|
|
1439
|
Is it possible to find out all outgoing links ( recursively ). Outgoing link is link from a bar to another bar
// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxG2antt1_MouseMoveEvent(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent);
begin
with AxG2antt1 do
begin
b := Chart.BarFromPoint[-1,-1];
i := get_ItemFromPoint(-1,-1,c,hit);
OutputDebugString( Items.ItemBar[i,TObject(b),EXG2ANTTLib.ItemBarPropertyEnum.exBarOutgoingLinksAllAsString] );
end
end;
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Tasks');
with Chart do
begin
LevelCount := 2;
FirstVisibleDate := '12/28/2000';
PaneWidth[False] := 96;
NonworkingDays := 0;
AllowLinkBars := True;
AllowCreateBar := EXG2ANTTLib.CreateBarEnum.exCreateBarAuto;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','A','A');
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','B','B');
AddLink('L1',h1,'A',h2,'B');
h3 := AddItem('Task 3');
AddBar(h3,'Task','1/8/2001','1/10/2001','C','C');
AddLink('L2',h2,'B',h3,'C');
h4 := AddItem('Task 4');
AddBar(h4,'Task','1/8/2001','1/10/2001','D','D');
AddLink('L3',h1,'A',h4,'D');
end;
EndUpdate();
end
|
|
1438
|
How do I find the outgoing links. Outgoing link is link from a bar to another bar
// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxG2antt1_MouseMoveEvent(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent);
begin
with AxG2antt1 do
begin
b := Chart.BarFromPoint[-1,-1];
i := get_ItemFromPoint(-1,-1,c,hit);
OutputDebugString( Items.ItemBar[i,TObject(b),EXG2ANTTLib.ItemBarPropertyEnum.exBarOutgoingLinksAsString] );
end
end;
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Tasks');
with Chart do
begin
LevelCount := 2;
FirstVisibleDate := '12/28/2000';
PaneWidth[False] := 96;
NonworkingDays := 0;
AllowLinkBars := True;
AllowCreateBar := EXG2ANTTLib.CreateBarEnum.exCreateBarAuto;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','A','A');
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','B','B');
AddLink('L1',h1,'A',h2,'B');
h3 := AddItem('Task 3');
AddBar(h3,'Task','1/8/2001','1/10/2001','C','C');
AddLink('L2',h2,'B',h3,'C');
h4 := AddItem('Task 4');
AddBar(h4,'Task','1/8/2001','1/10/2001','D','D');
AddLink('L3',h1,'A',h4,'D');
end;
EndUpdate();
end
|
|
1437
|
How do I select a bar using the right-click
// MouseDown event - Occurs when the user presses a mouse button.
procedure TWinForm1.AxG2antt1_MouseDownEvent(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_MouseDownEvent);
begin
with AxG2antt1 do
begin
with Items do
begin
ItemBar[0,'<*>',EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected] := TObject(False);
ItemBar[AxG2antt1.ItemFromPoint[-1,-1,c,hit],AxG2antt1.Chart.BarFromPoint[-1,-1],EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected] := TObject(True);
end;
end
end;
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Task');
with Chart do
begin
FirstVisibleDate := '12/29/2000';
PaneWidth[False] := 64;
LevelCount := 2;
end;
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1',Nil);
AddBar(AddItem('Task 2'),'Task','1/4/2001','1/6/2001','K2',Nil);
AddBar(AddItem('Task 3'),'Task','1/8/2001','1/10/2001','K3',Nil);
end;
EndUpdate();
end
|
|
1436
|
How can I add or change the padding (spaces) for captions in the control's header
with AxG2antt1 do
begin
BeginUpdate();
(Columns.Add('Padding-Left') as EXG2ANTTLib.Column).Def[EXG2ANTTLib.DefColumnEnum.exHeaderPaddingLeft] := TObject(18);
with (Columns.Add('Padding-Right') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exHeaderPaddingRight] := TObject(18);
HeaderAlignment := EXG2ANTTLib.AlignmentEnum.RightAlignment;
end;
EndUpdate();
end
|
|
1435
|
Do you have any plans to add cell spacing and cell padding to the cells
with AxG2antt1 do
begin
BeginUpdate();
DrawGridLines := EXG2ANTTLib.GridLinesEnum.exRowLines;
with (Columns.Add('Padding-Left') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
Def[EXG2ANTTLib.DefColumnEnum.exCellPaddingLeft] := TObject(18);
end;
(Columns.Add('No-Padding') as EXG2ANTTLib.Column).Def[EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
(Columns.Add('Empty') as EXG2ANTTLib.Column).Position := 0;
with Items do
begin
CellValue[TObject(AddItem('Item A.1')),TObject(1)] := 'Item A.2';
CellValue[TObject(AddItem('Item B.1')),TObject(1)] := 'Item B.2';
CellValue[TObject(AddItem('Item C.1')),TObject(1)] := 'Item C.2';
end;
EndUpdate();
end
|
|
1434
|
Can I display somehow the filter just on the top of the list, with an editor associated to each column
// AddItem event - Occurs after a new Item has been inserted to Items collection.
procedure TWinForm1.AxG2antt1_AddItem(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_AddItemEvent);
begin
with AxG2antt1 do
begin
with Items do
begin
AddBar(e.item,'Task',CellValue[TObject(e.item),TObject(2)],CellValue[TObject(e.item),TObject(4)],Nil,Nil);
end;
end
end;
// Change event - Occurs when the user changes the cell's content.
procedure TWinForm1.AxG2antt1_Change(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_ChangeEvent);
begin
with AxG2antt1 do
begin
OutputDebugString( 'Locked:' );
OutputDebugString( Items.IsItemLocked[e.item] );
with Columns.Item[TObject(e.colIndex)] do
begin
Filter := e.newValue;
FilterType := EXG2ANTTLib.FilterTypeEnum.exPattern;
end;
ApplyFilter();
end
end;
// MouseUp event - Occurs when the user releases a mouse button.
procedure TWinForm1.AxG2antt1_MouseUpEvent(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_MouseUpEvent);
begin
with AxG2antt1 do
begin
Edit(Items.LockedItem[EXG2ANTTLib.VAlignmentEnum.exTop,0]);
end
end;
with AxG2antt1 do
begin
ColumnAutoResize := False;
ScrollBySingleLine := True;
ContinueColumnScroll := False;
Chart.FirstVisibleDate := '8/3/1994';
rs := (ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset')) as ADODB.Recordset);
with rs do
begin
Open('Orders','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb',3,3,Nil);
end;
DataSource := (rs as ADODB.Recordset);
with Items do
begin
LockedItemCount[EXG2ANTTLib.VAlignmentEnum.exTop] := 2;
h := LockedItem[EXG2ANTTLib.VAlignmentEnum.exTop,0];
CellEditor[TObject(h),TObject(0)].EditType := EXG2ANTTLib.EditTypeEnum.EditType;
h := LockedItem[EXG2ANTTLib.VAlignmentEnum.exTop,1];
ItemHeight[h] := 4;
ItemDivider[h] := 0;
SelectableItem[h] := False;
end;
end
|
|
1433
|
Is it possible to display information about the firing events
// Event event - Notifies the application once the control fires an event.
procedure TWinForm1.AxG2antt1_Event(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_EventEvent);
begin
with AxG2antt1 do
begin
OutputDebugString( get_EventParam(-2) );
end
end;
|
|
1432
|
I need to specify the start and end dates of the bar to be the same, but to keep count of the working units. Is it possible
with AxG2antt1 do
begin
BeginUpdate();
MarkSearchColumn := False;
with Columns do
begin
Add('Tasks');
(Add('Start') as EXG2ANTTLib.Column).Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(1);
(Add('End') as EXG2ANTTLib.Column).Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(543);
end;
with Chart do
begin
FirstVisibleDate := '9/20/2006';
LevelCount := 2;
PaneWidth[False] := 256;
ShowEmptyBars := 1;
Bars.Add('Task:Split').Shortcut := 'Task';
end;
with Items do
begin
AllowCellValueToItemBar := True;
AddBar(AddItem('Task 1'),'Task','9/21/2006','9/21/2006',Nil,Nil);
AddBar(AddItem('Task 2'),'Task','9/22/2006','9/25/2006',Nil,Nil);
AddBar(AddItem('Task 3'),'Task','9/25/2006','9/25/2006',Nil,Nil);
ItemBar[0,'<*>',EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount] := TObject(True);
end;
EndUpdate();
end
|
|
1431
|
I need to specify the start and end dates of the bar to be the same, but no bars are shown. (NOT recommended for bars with exBarKeepWorkingCount ) What I can do
with AxG2antt1 do
begin
BeginUpdate();
MarkSearchColumn := False;
with Columns do
begin
Add('Tasks');
(Add('Start') as EXG2ANTTLib.Column).Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(1);
(Add('End') as EXG2ANTTLib.Column).Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(543);
end;
with Chart do
begin
FirstVisibleDate := '9/20/2006';
LevelCount := 2;
PaneWidth[False] := 256;
ShowEmptyBars := 1;
end;
with Items do
begin
AllowCellValueToItemBar := True;
AddBar(AddItem('Task 1'),'Task','9/21/2006','9/21/2006',Nil,Nil);
AddBar(AddItem('Task 2'),'Task','9/22/2006','9/22/2006',Nil,Nil);
AddBar(AddItem('Task 3'),'Task','9/25/2006','9/25/2006',Nil,Nil);
end;
EndUpdate();
end
|
|
1430
|
I need my chart to display the end date with on day less. How can I do this (Method 2)
with AxG2antt1 do
begin
BeginUpdate();
MarkSearchColumn := False;
with Columns do
begin
Add('Tasks');
with (Add('Start') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(1);
Editor.EditType := EXG2ANTTLib.EditTypeEnum.DateType;
end;
with (Add('End') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty] := TObject(543);
Editor.EditType := EXG2ANTTLib.EditTypeEnum.DateType;
end;
end;
with Chart do
begin
FirstVisibleDate := '9/20/2006';
LevelCount := 2;
PaneWidth[False] := 256;
NonworkingDays := 0;
end;
with Items do
begin
AllowCellValueToItemBar := True;
AddBar(AddItem('Task 1'),'Task','9/21/2006','9/24/2006',Nil,Nil);
AddBar(AddItem('Task 2'),'Task','9/22/2006','9/25/2006',Nil,Nil);
AddBar(AddItem('Task 3'),'Task','9/23/2006','9/26/2006',Nil,Nil);
end;
EndUpdate();
end
|
|
1429
|
Is it possible to change the width of a specified time unit
with AxG2antt1 do
begin
BeginUpdate();
with Chart do
begin
PaneWidth[False] := 0;
LevelCount := 2;
FirstVisibleDate := '1/1/2008';
AllowInsideZoom := True;
AllowResizeInsideZoom := False;
InsideZoomOnDblClick := False;
DefaultInsideZoomFormat.BackColorChart := $ff00ff;
with InsideZooms do
begin
SplitBaseLevel := False;
DefaultWidth := 18;
with Add('1/15/2008') do
begin
AllowInsideFormat := False;
Width := 128;
end;
end;
end;
EndUpdate();
end
|
|
1428
|
The level unit of the chart is set to day, so i'd like to set the whole background of the current day. Is it possible to set a background color only on the current day (Method 2)
with AxG2antt1 do
begin
BeginUpdate();
with Chart do
begin
PaneWidth[False] := 0;
LevelCount := 2;
FirstVisibleDate := '1/1/2008';
AllowInsideZoom := True;
AllowResizeInsideZoom := False;
InsideZoomOnDblClick := False;
DefaultInsideZoomFormat.BackColorChart := $ff;
with InsideZooms do
begin
SplitBaseLevel := False;
DefaultWidth := 18;
Add('1/15/2008').AllowInsideFormat := False;
end;
end;
EndUpdate();
end
|
|
1427
|
The level unit of the chart is set to day, so i'd like to set the whole background of the current day. Is it possible to set a background color only on the current day (Method 1)
with AxG2antt1 do
begin
BeginUpdate();
with Chart do
begin
PaneWidth[False] := 0;
FirstVisibleDate := '1/1/2008';
MarkTodayColor := BackColor;
LevelCount := 2;
MarkSelectDateColor := $7fff0000;
SelectLevel := 1;
SelectDate['1/15/2008'] := True;
end;
EndUpdate();
end
|
|
1426
|
How can I change the layout of my columns when using the exCRD
with AxG2antt1 do
begin
BeginUpdate();
DrawGridLines := EXG2ANTTLib.GridLinesEnum.exRowLines;
DefaultItemHeight := 36;
with Columns do
begin
with (Add('Column1') as EXG2ANTTLib.Column) do
begin
Visible := False;
Editor.EditType := EXG2ANTTLib.EditTypeEnum.EditType;
end;
with (Add('Column2') as EXG2ANTTLib.Column) do
begin
Visible := False;
Editor.EditType := EXG2ANTTLib.EditTypeEnum.EditType;
end;
(Add('Column3') as EXG2ANTTLib.Column).Visible := False;
with (Add('FormatLevel') as EXG2ANTTLib.Column) do
begin
FormatLevel := '(0/1),2';
Def[EXG2ANTTLib.DefColumnEnum.exCellFormatLevel] := TObject(FormatLevel);
end;
end;
with Items do
begin
h := AddItem('Cell 1.1');
CellValue[TObject(h),TObject(1)] := 'Cell 1.2';
CellValue[TObject(h),TObject(2)] := 'Cell 1.3';
h := AddItem('Cell 2.1');
CellValue[TObject(h),TObject(1)] := 'Cell 2.2';
CellValue[TObject(h),TObject(2)] := 'Cell 2.3';
end;
EndUpdate();
end
|
|
1425
|
How can I overlaid a single bar
with AxG2antt1 do
begin
BeginUpdate();
DefaultItemHeight := 22;
Columns.Add('Task');
ScrollBySingleLine := True;
BackColorAlternate := Color.FromArgb(240,240,240);
with Chart do
begin
AllowCreateBar := EXG2ANTTLib.CreateBarEnum.exCreateBarAuto;
PaneWidth[False] := 48;
FirstVisibleDate := '12/28/2000';
LevelCount := 2;
with Bars.Item['Task'] do
begin
OverlaidGroup := 'OTask';
OverlaidType := EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsNone;
Def[EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption] := '<%=%9%>';
end;
with Bars.Copy('Task','OTask') do
begin
OverlaidGroup := 'Task';
OverlaidType := Integer(EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStrict) Or Integer(EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsCascade);
end;
end;
with Items do
begin
h1 := AddItem('Default');
h := AddItem('Overlaid');
AddBar(h,'Task','1/2/2001','1/4/2001','A1',Nil);
AddBar(h,'Task','1/4/2001','1/7/2001','A3',Nil);
AddBar(h,'OTask','1/3/2001','1/5/2001','A2',Nil);
ItemBar[h,'A2',EXG2ANTTLib.ItemBarPropertyEnum.exBarColor] := TObject(255);
AddBar(h,'Task','1/5/2001','1/8/2001','A4',Nil);
h1 := AddItem('Default');
end;
EndUpdate();
end
|
|
1424
|
How can I use the exOverlaidBarsCascade, exBarOverlaidKey
// CreateBar event - Fired when the user creates a new bar.
procedure TWinForm1.AxG2antt1_CreateBar(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_CreateBarEvent);
begin
with AxG2antt1 do
begin
Items.ItemBar[e.item,'newbar',EXG2ANTTLib.ItemBarPropertyEnum.exBarOverlaidKey] := 'Level0';
end
end;
with AxG2antt1 do
begin
BeginUpdate();
DefaultItemHeight := 22;
Columns.Add('Task');
ScrollBySingleLine := True;
BackColorAlternate := Color.FromArgb(240,240,240);
with Chart do
begin
AllowCreateBar := EXG2ANTTLib.CreateBarEnum.exCreateBarAuto;
PaneWidth[False] := 48;
FirstVisibleDate := '12/28/2000';
LevelCount := 2;
with Bars.Item['Task'] do
begin
OverlaidType := EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsCascade;
Def[EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption] := '<%=%9%>';
end;
end;
with Items do
begin
h1 := AddItem('Default');
h := AddItem('Overlaid');
AddBar(h,'Task','1/2/2001','1/4/2001','A1',Nil);
ItemBar[h,'A1',EXG2ANTTLib.ItemBarPropertyEnum.exBarOverlaidKey] := 'Level0';
AddBar(h,'Task','1/4/2001','1/7/2001','A3',Nil);
ItemBar[h,'A3',EXG2ANTTLib.ItemBarPropertyEnum.exBarOverlaidKey] := 'Level0';
AddBar(h,'Task','1/3/2001','1/5/2001','A2',Nil);
ItemBar[h,'A2',EXG2ANTTLib.ItemBarPropertyEnum.exBarColor] := TObject(255);
ItemBar[h,'A2',EXG2ANTTLib.ItemBarPropertyEnum.exBarOverlaidKey] := 'Level1';
AddBar(h,'Task','1/5/2001','1/8/2001','A4',Nil);
ItemBar[h,'A4',EXG2ANTTLib.ItemBarPropertyEnum.exBarColor] := TObject(255);
ItemBar[h,'A4',EXG2ANTTLib.ItemBarPropertyEnum.exBarOverlaidKey] := 'Level1';
h1 := AddItem('Default');
end;
EndUpdate();
end
|
|
1423
|
How can I use the exOverlaidBarsStack+exOverlaidBarsStackAutoArrange
with AxG2antt1 do
begin
BeginUpdate();
DefaultItemHeight := 22;
Columns.Add('Task');
ScrollBySingleLine := True;
BackColorAlternate := Color.FromArgb(240,240,240);
with Chart do
begin
PaneWidth[False] := 48;
FirstVisibleDate := '12/28/2000';
LevelCount := 2;
with Bars.Item['Task'] do
begin
OverlaidType := Integer(EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange) Or Integer(EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack);
Def[EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption] := '<%=%9%>';
end;
end;
with Items do
begin
h1 := AddItem('Default');
h := AddItem('Overlaid');
AddBar(h,'Task','1/2/2001','1/4/2001','A1',Nil);
AddBar(h,'Task','1/3/2001','1/5/2001','A2',Nil);
AddBar(h,'Task','1/4/2001','1/7/2001','A3',Nil);
AddBar(h,'Task','1/5/2001','1/8/2001','A4',Nil);
h1 := AddItem('Default');
end;
EndUpdate();
end
|
|
1422
|
How can I use the exOverlaidBarsStack
with AxG2antt1 do
begin
BeginUpdate();
DefaultItemHeight := 22;
Columns.Add('Task');
ScrollBySingleLine := True;
BackColorAlternate := Color.FromArgb(240,240,240);
with Chart do
begin
PaneWidth[False] := 48;
FirstVisibleDate := '12/28/2000';
LevelCount := 2;
with Bars.Item['Task'] do
begin
OverlaidType := EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack;
Def[EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption] := '<%=%9%>';
end;
end;
with Items do
begin
h1 := AddItem('Default');
h := AddItem('Overlaid');
AddBar(h,'Task','1/2/2001','1/4/2001','A1',Nil);
AddBar(h,'Task','1/3/2001','1/5/2001','A2',Nil);
AddBar(h,'Task','1/4/2001','1/7/2001','A3',Nil);
AddBar(h,'Task','1/5/2001','1/8/2001','A4',Nil);
h1 := AddItem('Default');
end;
EndUpdate();
end
|
|
1421
|
How can I use the exOverlaidBarsIntersect
with AxG2antt1 do
begin
BeginUpdate();
DefaultItemHeight := 22;
Columns.Add('Task');
ScrollBySingleLine := True;
BackColorAlternate := Color.FromArgb(240,240,240);
with Chart do
begin
PaneWidth[False] := 48;
FirstVisibleDate := '12/28/2000';
LevelCount := 2;
with Bars.Item['Task'] do
begin
OverlaidType := EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsIntersect;
Overlaid[EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsIntersect] := 'Progress';
Def[EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption] := '<%=%9%>';
end;
end;
with Items do
begin
h1 := AddItem('Default');
h := AddItem('Overlaid');
AddBar(h,'Task','1/2/2001','1/4/2001','A1',Nil);
AddBar(h,'Task','1/3/2001','1/5/2001','A2',Nil);
AddBar(h,'Task','1/4/2001','1/7/2001','A3',Nil);
AddBar(h,'Task','1/5/2001','1/8/2001','A4',Nil);
h1 := AddItem('Default');
end;
EndUpdate();
end
|
|
1420
|
How can I use the exOverlaidBarsOffset
with AxG2antt1 do
begin
BeginUpdate();
DefaultItemHeight := 22;
Columns.Add('Task');
ScrollBySingleLine := True;
BackColorAlternate := Color.FromArgb(240,240,240);
with Chart do
begin
PaneWidth[False] := 48;
FirstVisibleDate := '12/28/2000';
LevelCount := 2;
with Bars.Item['Task'] do
begin
OverlaidType := EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsOffset;
Def[EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption] := '<%=%9%>';
end;
end;
with Items do
begin
h1 := AddItem('Default');
h := AddItem('Overlaid');
AddBar(h,'Task','1/2/2001','1/4/2001','A1',Nil);
AddBar(h,'Task','1/3/2001','1/5/2001','A2',Nil);
AddBar(h,'Task','1/4/2001','1/7/2001','A3',Nil);
AddBar(h,'Task','1/5/2001','1/8/2001','A4',Nil);
h1 := AddItem('Default');
end;
EndUpdate();
end
|
|
1419
|
Is it possible to specify the end of the project when using the SchedulePDM method
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Task');
with Chart do
begin
FirstVisibleDate := '12/28/2000';
PaneWidth[False] := 48;
LevelCount := 2;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/2/2001','1/5/2001','K2',Nil);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXG2ANTTLib.LinkPropertyEnum.exLinkText] := 'FS';
h3 := AddItem('Task 3');
AddBar(h3,'Task','1/2/2001','1/6/2001','K3',Nil);
AddLink('L2',h2,'K2',h3,'K3');
Link['L2',EXG2ANTTLib.LinkPropertyEnum.exLinkText] := 'SS';
Link['L2',EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos] := TObject(0);
Link['L2',EXG2ANTTLib.LinkPropertyEnum.exLinkEndPos] := TObject(0);
DefSchedulePDM[EXG2ANTTLib.DefSchedulePDMEnum.exPDMScheduleType] := TObject(2);
DefSchedulePDM[EXG2ANTTLib.DefSchedulePDMEnum.exPDMScheduleDate] := '1/8/2001';
SchedulePDM(0,'K1');
end;
EndUpdate();
end
|
|
1418
|
Is it possible to specify the start of the project when using the SchedulePDM method
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Task');
with Chart do
begin
FirstVisibleDate := '12/28/2000';
PaneWidth[False] := 48;
LevelCount := 2;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/2/2001','1/5/2001','K2',Nil);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXG2ANTTLib.LinkPropertyEnum.exLinkText] := 'FS';
h3 := AddItem('Task 3');
AddBar(h3,'Task','1/2/2001','1/6/2001','K3',Nil);
AddLink('L2',h2,'K2',h3,'K3');
Link['L2',EXG2ANTTLib.LinkPropertyEnum.exLinkText] := 'SS';
Link['L2',EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos] := TObject(0);
Link['L2',EXG2ANTTLib.LinkPropertyEnum.exLinkEndPos] := TObject(0);
DefSchedulePDM[EXG2ANTTLib.DefSchedulePDMEnum.exPDMScheduleType] := TObject(1);
DefSchedulePDM[EXG2ANTTLib.DefSchedulePDMEnum.exPDMScheduleDate] := '1/8/2001';
SchedulePDM(0,'K1');
end;
EndUpdate();
end
|
|
1417
|
How can I change the caption or the addition information being displayed in the Zoom-OnFly view
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Task');
with Chart do
begin
PaneWidth[False] := 48;
FirstVisibleDate := '1/1/2001';
LevelCount := 2;
AllowZoomOnFly := EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFly;
ResizeUnitScale := EXG2ANTTLib.UnitEnum.exHour;
Label[EXG2ANTTLib.UnitEnum.exHour] := '<font ;5><b><%h%><br><%AM/PM%></b></font>';
ZoomOnFlyCaption := '<br><c><b><font ;12><%=%C0 + '' / <fgcolor=00FF00>'' + %3%></font></fgcolor></b><br><solidline><upline><b>Start</b>:<%=%1%><br><b>' +
'End</b>:<%=%2%><br><b>Duration</b>:<%=round(%2-%1) + '' days''%><br><b>Working</b>:<%=''<b>'' + int(%258) + ''</b> days'' + (0:=(%258 ' +
'- int(%258)) ? ('' <fgcolor=FF0000><b>'' + round(24 * =:0) + ''</b> hours'') : '''') %>';
end;
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/7/2001','1/10/2001','T1','T1');
AddBar(h,'Task','1/11/2001','1/14/2001','T3','T3');
h := AddItem(Nil);
AddBar(h,'','1/15/2001','1/15/2001','','Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.');
SelectableItem[h] := False;
end;
EndUpdate();
end
|
|
1416
|
How can I change the scale in the Zoom-OnFly view
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Task');
with Chart do
begin
PaneWidth[False] := 48;
FirstVisibleDate := '1/1/2001';
LevelCount := 2;
AllowZoomOnFly := EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFly;
ResizeUnitScale := EXG2ANTTLib.UnitEnum.exHour;
Label[EXG2ANTTLib.UnitEnum.exHour] := '<font ;5><b><%h%><br><%AM/PM%></b></font>';
ZoomOnFlyCaption := '';
end;
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/7/2001','1/10/2001','T1','T1');
AddBar(h,'Task','1/11/2001','1/14/2001','T3','T3');
h := AddItem(Nil);
AddBar(h,'','1/15/2001','1/15/2001','','Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.');
SelectableItem[h] := False;
end;
EndUpdate();
end
|
|
1415
|
Is it possible to change the Zoom-OnFly view's background color
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Task');
with Chart do
begin
PaneWidth[False] := 48;
FirstVisibleDate := '1/1/2001';
LevelCount := 2;
AllowZoomOnFly := EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFly;
BackColorZoomOnFly := $f0f0f0;
end;
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/7/2001','1/10/2001','T1','T1');
AddBar(h,'Task','1/11/2001','1/14/2001','T3','T3');
h := AddItem(Nil);
AddBar(h,'','1/15/2001','1/15/2001','','Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.');
SelectableItem[h] := False;
end;
EndUpdate();
end
|
|
1414
|
How can I include the selected items in the Zoom-OnFly view
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Task');
with Chart do
begin
PaneWidth[False] := 48;
FirstVisibleDate := '1/1/2001';
LevelCount := 2;
AllowZoomOnFly := Integer(EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyIncludeSelectedItems) Or Integer(EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFly);
SelBackColor := $f0f0f0;
SelectOnClick := False;
end;
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/7/2001','1/10/2001','T1','T1');
SelectItem[h] := True;
h := AddItem('Task 2');
AddBar(h,'Task','1/11/2001','1/14/2001','T2','T2');
h := AddItem('Task 3');
AddBar(h,'Task','1/8/2001','1/12/2001','T3','T3');
h := AddItem(Nil);
AddBar(h,'','1/15/2001','1/15/2001','','Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.');
SelectableItem[h] := False;
end;
EndUpdate();
end
|
|
1413
|
Is it possible to include the neighbors items in the Zoom-OnFly view
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Task');
with Chart do
begin
PaneWidth[False] := 48;
FirstVisibleDate := '1/1/2001';
LevelCount := 2;
AllowZoomOnFly := Integer(EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyIncludeNeighborItems) Or Integer(EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFly);
end;
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/7/2001','1/10/2001','T1','T1');
h := AddItem('Task 2');
AddBar(h,'Task','1/11/2001','1/14/2001','T3','T3');
h := AddItem('Task 3');
AddBar(h,'Task','1/8/2001','1/12/2001','T1','T1');
h := AddItem(Nil);
AddBar(h,'','1/15/2001','1/15/2001','','Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.');
SelectableItem[h] := False;
end;
EndUpdate();
end
|
|
1412
|
How can I enable the Zoom-OnFly view
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Task');
with Chart do
begin
PaneWidth[False] := 48;
FirstVisibleDate := '11/5/2000';
LevelCount := 2;
UnitScale := EXG2ANTTLib.UnitEnum.exWeek;
ResizeUnitScale := EXG2ANTTLib.UnitEnum.exDay;
AllowZoomOnFly := EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFly;
Bars.Item['Task'].OverlaidType := EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack;
end;
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/7/2001','1/17/2001','T1','T1');
AddBar(h,'Task','1/18/2001','2/24/2001','T3','T3');
h := AddItem(Nil);
AddBar(h,'','1/15/2001','1/15/2001','','Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.');
SelectableItem[h] := False;
end;
EndUpdate();
end
|
|
1411
|
I am using the overlay bars on stack, can I somehow tell a type of bar, or a specific bar, to be always on top of all other’s. Like a Z-Index or something
with AxG2antt1 do
begin
BeginUpdate();
ScrollBySingleLine := True;
Columns.Add('Task');
DrawGridLines := EXG2ANTTLib.GridLinesEnum.exHLines;
with Chart do
begin
DrawGridLines := EXG2ANTTLib.GridLinesEnum.exHLines;
AllowCreateBar := EXG2ANTTLib.CreateBarEnum.exCreateBarAuto;
AllowLinkBars := False;
ResizeUnitScale := EXG2ANTTLib.UnitEnum.exHour;
PaneWidth[False] := 48;
FirstVisibleDate := '1/1/2001';
Bars.Item['Task'].OverlaidType := EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack;
end;
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/7/2001','1/10/2001','A1','A1');
AddBar(h,'Task','1/8/2001','1/12/2001','A3','A3');
ItemBar[h,'A3',EXG2ANTTLib.ItemBarPropertyEnum.exBarColor] := TObject(65280);
h := AddItem('Task 2');
AddBar(h,'Task','1/7/2001','1/10/2001','A31','A31');
AddBar(h,'Task','1/8/2001','1/12/2001','A3','A3');
ItemBar[h,'A3',EXG2ANTTLib.ItemBarPropertyEnum.exBarColor] := TObject(255);
AddBar(AddItem(Nil),'','1/10/2001','1/10/2001',Nil,'The <b>Key</b> of the bar specifies the Z-Order when overlaying.');
end;
EndUpdate();
end
|
|
1410
|
Is it possible to specify the z-order when using the overlaying feature
with AxG2antt1 do
begin
BeginUpdate();
Columns.Add('Tasks');
with Chart do
begin
NonworkingDays := 0;
FirstVisibleDate := '9/17/2006';
PaneWidth[False] := 64;
LevelCount := 2;
Bars.Item['Task'].OverlaidType := EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsCascade;
end;
with Items do
begin
h1 := AddItem('Task');
AddBar(h1,'Task','9/21/2006','9/27/2006','K1','K1');
AddBar(h1,'Task','9/23/2006','9/24/2006','K2','K2');
AddBar(h1,'Task','9/22/2006','9/25/2006','K3','K3');
AddBar(h1,'Task','9/21/2006','9/27/2006','T1','T1');
AddBar(h1,'Task','9/28/2006','9/29/2006','T2','T2');
AddBar(h1,'Task','9/30/2006','10/3/2006','T3','T3');
ItemBar[0,'<T*>',EXG2ANTTLib.ItemBarPropertyEnum.exBarColor] := TObject(65280);
ItemBar[0,'<K*>',EXG2ANTTLib.ItemBarPropertyEnum.exBarOverlaidKey] := 'A';
ItemBar[0,'<T*>',EXG2ANTTLib.ItemBarPropertyEnum.exBarOverlaidKey] := 'B';
end;
EndUpdate();
end
|
|
1409
|
I seen that there is no exBarStartColor, exBarEndColor, similar to exBarColor, is there any solution so I can display a different Start/End Color
with AxG2antt1 do
begin
BeginUpdate();
with Chart do
begin
FirstVisibleDate := '1/1/2001';
with Bars.Copy('Summary','Aka1') do
begin
StartColor := $ff;
EndColor := $ff0000;
end;
with Bars.Copy('Summary','Aka2') do
begin
StartColor := $ff00;
EndColor := $ff00ff;
end;
end;
Columns.Add('Column');
with Items do
begin
h := AddItem('Item A');
AddBar(h,'Task','1/2/2001','1/6/2001','B1',Nil);
ItemBar[h,'B1',EXG2ANTTLib.ItemBarPropertyEnum.exBarName] := 'Aka1';
h := AddItem('Item B');
AddBar(h,'Task','1/2/2001','1/6/2001','B2',Nil);
ItemBar[h,'B2',EXG2ANTTLib.ItemBarPropertyEnum.exBarName] := 'Aka2';
end;
EndUpdate();
end
|
|
1408
|
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a snapshot
with AxG2antt1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
set_HTMLPicture('p1','c:\exontrol\images\card.png');
set_HTMLPicture('p2','c:\exontrol\images\sun.png');
AutoDrag := EXG2ANTTLib.AutoDragEnum.exAutoDragCopySnapShot;
LinesAtRoot := EXG2ANTTLib.LinesAtRootEnum.exNoLinesAtRoot;
HasLines := EXG2ANTTLib.HierarchyLineEnum.exThinLine;
ShowFocusRect := False;
DefaultItemHeight := 26;
Columns.Add('Task');
with Chart do
begin
ShowNonworkingDates := False;
FirstVisibleDate := '12/29/2000';
PaneWidth[False] := 96;
LevelCount := 2;
with Bars.Item['Task'] do
begin
Color := $1000000;
Height := 18;
end;
end;
with Items do
begin
h := AddItem('<img>p1:32</img>Group 1');
CellValueFormat[TObject(h),TObject(0)] := EXG2ANTTLib.ValueFormatEnum.exHTML;
ItemDivider[h] := 0;
ItemBold[h] := True;
h1 := InsertItem(h,Nil,'Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
h2 := InsertItem(h,Nil,'Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXG2ANTTLib.LinkPropertyEnum.exLinkText] := 'L1';
h3 := InsertItem(h,Nil,'Task 3');
AddBar(h3,'Task','1/8/2001','1/10/2001','K3',Nil);
AddLink('L2',h2,'K2',h3,'K3');
Link['L2',EXG2ANTTLib.LinkPropertyEnum.exLinkText] := 'L2';
h := AddItem('<img>p2:32</img>Group 2');
CellValueFormat[TObject(h),TObject(0)] := EXG2ANTTLib.ValueFormatEnum.exHTML;
ItemBold[h] := True;
ItemDivider[h] := 0;
h1 := InsertItem(h,Nil,'Task');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
ExpandItem[0] := True;
end;
EndUpdate();
end
|
|
1407
|
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a image
with AxG2antt1 do
begin
BeginUpdate();
set_HTMLPicture('p1','c:\exontrol\images\card.png');
set_HTMLPicture('p2','c:\exontrol\images\sun.png');
Chart.PaneWidth[True] := 0;
var_HTMLPicture := get_HTMLPicture('aka1');
HeaderHeight := 24;
DefaultItemHeight := 48;
DrawGridLines := EXG2ANTTLib.GridLinesEnum.exRowLines;
GridLineColor := Color.FromArgb(240,240,240);
SelBackMode := EXG2ANTTLib.BackModeEnum.exTransparent;
ColumnAutoResize := False;
ContinueColumnScroll := False;
rs := (ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset')) as ADODB.Recordset);
with rs do
begin
Open('Orders','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb',3,3,Nil);
end;
DataSource := (rs as ADODB.Recordset);
Columns.Item[TObject(0)].Def[EXG2ANTTLib.DefColumnEnum.exCellValueFormat] := TObject(1);
Columns.Item[TObject(0)].FormatColumn := 'value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`';
Columns.Item[TObject(0)].Width := 112;
Columns.Item[TObject(1)].Def[EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox] := TObject(1);
Columns.Item[TObject(2)].LevelKey := '1';
Columns.Item[TObject(3)].LevelKey := '1';
Columns.Item[TObject(4)].LevelKey := '1';
AutoDrag := EXG2ANTTLib.AutoDragEnum.exAutoDragCopyImage;
SingleSel := False;
with Items do
begin
h := ItemByIndex[1];
SelectItem[h] := True;
h := ItemByIndex[2];
SelectItem[h] := True;
h := ItemByIndex[3];
SelectItem[h] := True;
LockedItemCount[EXG2ANTTLib.VAlignmentEnum.exBottom] := 1;
h := LockedItem[EXG2ANTTLib.VAlignmentEnum.exBottom,0];
CellValue[TObject(h),TObject(1)] := '<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ...';
CellSingleLine[TObject(h),TObject(1)] := EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap;
CellValueFormat[TObject(h),TObject(1)] := EXG2ANTTLib.ValueFormatEnum.exHTML;
CellHAlignment[TObject(h),TObject(1)] := EXG2ANTTLib.AlignmentEnum.CenterAlignment;
ItemDivider[h] := 1;
ItemDividerLineAlignment[h] := EXG2ANTTLib.DividerAlignmentEnum.DividerTop;
end;
EndUpdate();
end
|
|
1406
|
How can copy and paste the selection to Microsoft Word, Excel or any OLE compliant application, as a text
with AxG2antt1 do
begin
BeginUpdate();
Chart.PaneWidth[True] := 0;
ColumnAutoResize := False;
ContinueColumnScroll := False;
rs := (ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset')) as ADODB.Recordset);
with rs do
begin
Open('Orders','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb',3,3,Nil);
end;
DataSource := (rs as ADODB.Recordset);
Columns.Item[TObject(2)].LevelKey := '1';
Columns.Item[TObject(3)].LevelKey := '1';
Columns.Item[TObject(4)].LevelKey := '1';
AutoDrag := EXG2ANTTLib.AutoDragEnum.exAutoDragCopyText;
SingleSel := False;
with Items do
begin
h := ItemByIndex[1];
SelectItem[h] := True;
h := ItemByIndex[3];
SelectItem[h] := True;
h := ItemByIndex[4];
SelectItem[h] := True;
h := ItemByIndex[5];
SelectItem[h] := True;
LockedItemCount[EXG2ANTTLib.VAlignmentEnum.exBottom] := 1;
h := LockedItem[EXG2ANTTLib.VAlignmentEnum.exBottom,0];
CellValue[TObject(h),TObject(0)] := '<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ...';
CellSingleLine[TObject(h),TObject(0)] := EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap;
CellValueFormat[TObject(h),TObject(0)] := EXG2ANTTLib.ValueFormatEnum.exHTML;
CellHAlignment[TObject(h),TObject(0)] := EXG2ANTTLib.AlignmentEnum.CenterAlignment;
ItemDivider[h] := 0;
ItemDividerLineAlignment[h] := EXG2ANTTLib.DividerAlignmentEnum.DividerTop;
end;
EndUpdate();
end
|
|
1405
|
Is it possible to change the indentation during the drag and drop
with AxG2antt1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
AutoDrag := EXG2ANTTLib.AutoDragEnum.exAutoDragPositionAny;
LinesAtRoot := EXG2ANTTLib.LinesAtRootEnum.exNoLinesAtRoot;
HasLines := EXG2ANTTLib.HierarchyLineEnum.exSolidLine;
HasButtons := EXG2ANTTLib.ExpandButtonEnum.exWPlus;
ShowFocusRect := False;
SelBackMode := EXG2ANTTLib.BackModeEnum.exTransparent;
Columns.Add('Task');
with Chart do
begin
ShowNonworkingDates := False;
FirstVisibleDate := '12/29/2000';
PaneWidth[False] := 128;
LevelCount := 2;
Bars.Item['Task'].Color := $1000000;
end;
with Items do
begin
h := AddItem('Group 1');
ItemBold[h] := True;
ItemDivider[h] := 0;
h1 := InsertItem(h,Nil,'Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
h2 := InsertItem(h1,Nil,'Task 2');
AddBar(h2,'Task','1/15/2001','1/17/2001','K4',Nil);
h2 := InsertItem(h1,Nil,'Task 3');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXG2ANTTLib.LinkPropertyEnum.exLinkText] := 'L1';
h3 := InsertItem(h,Nil,'Task 3');
AddBar(h3,'Task','1/8/2001','1/10/2001','K3',Nil);
AddLink('L2',h2,'K2',h3,'K3');
Link['L2',EXG2ANTTLib.LinkPropertyEnum.exLinkText] := 'L2';
ExpandItem[h] := True;
ExpandItem[h1] := True;
h := AddItem('Group 2');
ItemBold[h] := True;
ItemDivider[h] := 0;
LockedItemCount[EXG2ANTTLib.VAlignmentEnum.exBottom] := 1;
h := LockedItem[EXG2ANTTLib.VAlignmentEnum.exBottom,0];
CellValue[TObject(h),TObject(0)] := 'Click a row, and move by dragging <b>up, down</b> to change the row''s parent or <b>left,right</b> to increase or decrease the in' +
'dentation.';
CellSingleLine[TObject(h),TObject(0)] := EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap;
CellValueFormat[TObject(h),TObject(0)] := EXG2ANTTLib.ValueFormatEnum.exHTML;
end;
EndUpdate();
end
|
|
1404
|
Is it possible to allow moving an item to another, but keeping its indentation
with AxG2antt1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
AutoDrag := EXG2ANTTLib.AutoDragEnum.exAutoDragPositionKeepIndent;
LinesAtRoot := EXG2ANTTLib.LinesAtRootEnum.exNoLinesAtRoot;
HasLines := EXG2ANTTLib.HierarchyLineEnum.exThinLine;
ShowFocusRect := False;
Columns.Add('Task');
with Chart do
begin
ShowNonworkingDates := False;
FirstVisibleDate := '12/29/2000';
PaneWidth[False] := 96;
LevelCount := 2;
Bars.Item['Task'].Color := $1000000;
end;
with Items do
begin
h := AddItem('Group 1');
ItemDivider[h] := 0;
ItemBold[h] := True;
h1 := InsertItem(h,Nil,'Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
h2 := InsertItem(h,Nil,'Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXG2ANTTLib.LinkPropertyEnum.exLinkText] := 'L1';
h3 := InsertItem(h,Nil,'Task 3');
AddBar(h3,'Task','1/8/2001','1/10/2001','K3',Nil);
AddLink('L2',h2,'K2',h3,'K3');
Link['L2',EXG2ANTTLib.LinkPropertyEnum.exLinkText] := 'L2';
ExpandItem[h] := True;
h := AddItem('Group 2');
ItemBold[h] := True;
ItemDivider[h] := 0;
end;
EndUpdate();
end
|
|
1403
|
How can I change the row's position to another, by drag and drop. Is it possible
with AxG2antt1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
AutoDrag := EXG2ANTTLib.AutoDragEnum.exAutoDragPosition;
Columns.Add('Task');
with Chart do
begin
ShowNonworkingDates := False;
FirstVisibleDate := '12/29/2000';
PaneWidth[False] := 64;
LevelCount := 2;
Bars.Item['Task'].Color := $1000000;
end;
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Nil);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Nil);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXG2ANTTLib.LinkPropertyEnum.exLinkText] := 'L1';
h3 := AddItem('Task 3');
AddBar(h3,'Task','1/8/2001','1/10/2001','K3',Nil);
AddLink('L2',h2,'K2',h3,'K3');
Link['L2',EXG2ANTTLib.LinkPropertyEnum.exLinkText] := 'L2';
end;
EndUpdate();
end
|
|
1402
|
Is it possible to scroll the control's content by clicking and moving the mouse up or down
// AddItem event - Occurs after a new Item has been inserted to Items collection.
procedure TWinForm1.AxG2antt1_AddItem(sender: System.Object; e: AxEXG2ANTTLib._IG2anttEvents_AddItemEvent);
begin
with AxG2antt1 do
begin
with Items do
begin
AddBar(e.item,'Task',CellValue[TObject(e.item),TObject(2)],CellValue[TObject(e.item),TObject(4)],Nil,Nil);
end;
end
end;
with AxG2antt1 do
begin
BeginUpdate();
with Chart do
begin
FirstVisibleDate := '8/3/1994';
PaneWidth[False] := 256;
LevelCount := 2;
UnitScale := EXG2ANTTLib.UnitEnum.exDay;
FirstWeekDay := EXG2ANTTLib.WeekDayEnum.exMonday;
OverviewVisible := EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible;
end;
ColumnAutoResize := False;
ContinueColumnScroll := False;
rs := (ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset')) as ADODB.Recordset);
with rs do
begin
Open('Orders','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb',3,3,Nil);
end;
DataSource := (rs as ADODB.Recordset);
AutoDrag := EXG2ANTTLib.AutoDragEnum.exAutoDragScroll;
EndUpdate();
end
|
|
1401
|
How can I display bars so they fit the entire height ( height of the row )
with AxG2antt1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
DefaultItemHeight := 36;
with Chart do
begin
PaneWidth[False] := 164;
FirstVisibleDate := '1/1/2001';
UnitWidth := 48;
LevelCount := 2;
UnitScale := EXG2ANTTLib.UnitEnum.exHour;
NonworkingHours := 16253183;
ShowNonworkingUnits := False;
UnitWidth := 16;
FirstVisibleDate := '1/1/2012 8:00:00 AM';
DrawGridLines := EXG2ANTTLib.GridLinesEnum.exAllLines;
Bars.Add('Empty').Pattern := EXG2ANTTLib.PatternEnum.exPatternEmpty;
with Level[0] do
begin
Alignment := Integer(EXG2ANTTLib.AlignmentEnum.exHOutside) Or Integer(EXG2ANTTLib.AlignmentEnum.CenterAlignment);
Label := '<%d2%>';
end;
AllowLinkBars := False;
AllowCreateBar := EXG2ANTTLib.CreateBarEnum.exNoCreateBar;
BarsAllowSizing := False;
AllowSelectObjects := EXG2ANTTLib.SelectObjectsEnum.exNoSelectObjects;
end;
DrawGridLines := EXG2ANTTLib.GridLinesEnum.exAllLines;
ShowFocusRect := False;
with Columns do
begin
with (Add('CA') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exCellSingleLine] := TObject(False);
Def[EXG2ANTTLib.DefColumnEnum.exCellValueFormat] := TObject(1);
end;
with (Add('CB') as EXG2ANTTLib.Column) do
begin
Def[EXG2ANTTLib.DefColumnEnum.exCellSingleLine] := TObject(False);
Def[EXG2ANTTLib.DefColumnEnum.exCellValueFormat] := TObject(1);
end;
end;
with Items do
begin
h := AddItem('Address 1.1<br>Line 2.1<br>C1');
ItemMaxHeight[h] := 96;
CellValue[TObject(h),TObject(1)] := 'Address 1.2<br>Line 2.2<br>C2';
AddBar(h,'Empty','1/2/2012 8:00:00 AM','1/2/2012 7:00:00 PM','A','This is a bit of text<br>being <font ;9>displayed ion the <b>bar A');
ItemBar[h,'A',EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor] := TObject(16777471);
ItemBar[h,'A',EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption] := TObject(0);
ItemBar[h,'A',EXG2ANTTLib.ItemBarPropertyEnum.exBarVAlignCaption] := TObject(2);
AddBar(h,'Empty','1/3/2012 8:00:00 AM','1/3/2012 7:00:00 PM','B','<fgcolor=FFFFFF>This is a bit of text<br><fgcolor=FFFFFF>being <font ;9>displayed ion the <b>bar B');
ItemBar[h,'B',EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor] := TObject(33488896);
ItemBar[h,'B',EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption] := TObject(2);
ItemBar[h,'B',EXG2ANTTLib.ItemBarPropertyEnum.exBarVAlignCaption] := TObject(0);
AddBar(h,'Empty','1/4/2012 8:00:00 AM','1/4/2012 7:00:00 PM','C','<font Tahoma;12><b>bar C');
ItemBar[h,'C',EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor] := TObject(33489151);
end;
EndUpdate();
end
|